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ie waren sich alle einig, die Soft- 

warehäuser, die Hardwareher- 

steller und Entwickler, die Händ- 
ler, die Fachjournalisten und sogar 
‚Atari selbst: »Der Atari XU/XE ist tot«. 
Schließlich war (und ist) der C64 der 
bislang erfolgreichste Heimcomputer 
aller Zeiten. Für Atari schien die ein- 
zige Zukunft nach den Wirren der 
Übernahme durch Jack Tramiel in der 
neuen ST-Linie zu liegen. 

Nur noch einige eingefleischte 
Freaks und ausdauernde User-Clubs 
hielten ihrem XL/XE die Stange. Die 
immer kleiner werdende Gemeinde 
bombadierte unsere Redaktion mit 
Leserbriefen: »Bringt doch mehr über 
den Atari XL«. Keine leichte Aufgabe 
für uns. Wir bemühten uns dennoch, 
die Wünsche unserer Leserschaft zu 
erfüllen. Aus der Listingflut der ersten 
Jahre war allerdings leider ein immer 
dünneres Rinnsal geworden. Die Pro- 
duktion des XL/XE wurde eingestellt, 
die Händler verkauften ihre Restpo- 
sten nur noch mühsam. Die Preise fie- 
len. Alles schien klar: Der Atari XL ist 


Und plötzlich beginnen die Ver- 
kaufszahlen zu steigen. Auf der CeBit 
’87 kann Alwin Stumpf, deutscher 
Atari-Chef, stolz 92000 verkaufte XL 
vermelden. Der Erfolg überraschte 
Atari derart, daß geplant ist, den 800 
XL im Gehäuse eines 130 XE neu auf- 
zulegen. Weiterhin werden von Atari 
Anstrengungen in Richtung Software 
unternommen. In diesem Jahr wird 
eine große Werbekampagne für die 
»kleinen Ataris« erwartet, ein XL-Com- 
puter als Spielconsole kommt zu 
Weihnachten. Der Atari XL lebil 

Im großen Atari-Schwerpunkt in 
Ausgabe 7/87 von Happy-Computer 
konnten es die Freaks aus dem berufe- 
nen Munde Alwin Stumpfs hören, daß 
sie an dieser Entwicklung nicht unbe- 
teiligt waren: »Wenn es nicht die 
Clique der Atarianer gegeben hätte, 
die ihren Computer leidenschaftlich 
vor aller Welt verteidigten, wären die 


Totgesagte 
Ice a 


kleinen Computer niemals wieder so 
populär geworden.« 

Bereits das erste XU/XE-Sonderheft 
von Happy-Computer war ein durch- 
Erfolg. Das »Turbo- 
Basic« des späteren GFA-Basic-Pro- 
grammierers Frank Ostrowski (Listing 
des Monats in Happy-Computer) ist 
heute Quasi-Standard aller Listings für 
die 8-Bit-Ataris. Sogar jenseits des 
‚Atlantik. Wer regelmäßig amerikanische 
‚Atari-Zeitschriften liest, wird dort immer 
wieder Programme finden, die in Turbo- 
Basic geschrieben worden sind. 

Mit diesem Sonderheft wollen wir 
dieser Entwicklung noch mehr Durch- 
schlagskraft verleihen. Unter dem 
Motto »Professionell programmieren« 
ist dieses Sonderheft ein Nachschla- 
gewerk für alle, die auch noch das 
Letzte aus ihrem Atari XL herausholen 
wollen. Wenn Sie die ausführlichste 
Übersicht über alle XL-Hardware- 
Register suchen, die je in einer 
deutschsprachigen Zeitschrift er- 
schienen ist, wenn Sie Grundlagen 
zur Grafikprogrammierung brauchen, 
eine Kassettenversion von Turbo- 
Basic vermissen oder 256 Farben 
gleichzeitig darstellen wollen: Sie fin- 


Für die Anwender unter Ihnen lie- 
fern wir unter anderem ein Zeichen- 
programm, einige Super-Spiele zum 
Abtippen undeinen Zeichensatzgene- 


Wenn Sie übrigens ein Spiel oder 
programmiert 
haben, schicken Sie sie uns. Jeden 
Monat warten in Happy-Computer 
3000 Mark auf den Programmierer 
des »Listings des Monats«. 

(Henrik Fisch) 


Vonjeher wurde der Atari als Spielemaschine eingesetzt. Die- 
ses Talent und seinen Ruf als Spielemaschine hat er sich bis 
heute bewahrt. Vier neue Spiele für die XL/XE-Computer 
erwarten Sie ab Seite 6 


Nicht nur zum Einfrieren von Programmen, sondern auch als 
ultimatives Programm-Entwicklungswerkzeug dient der 
brandneue Turbo-Freezer XL. Einen ausführlichen Test dieses 
Hardware-Zusatzes finden Sie auf Seite 14 


Ein Traum wird wahr: Endlich lassen sich auf dem Bildschirm 
alle 256 Farben der Atari-Computer gleichzeitig darstellen. 
Ein Malprogramm und ein Mandelbrot-Programm nutzen die 
Farbenvielfalt. 21 
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Mit unserem in Turbo-Basic geschriebenen Zeilen-Assembler 
lassen sich ohne Probleme kleine Programme schreiben und 
austesten. Ideal ist er für die Demonstrationsprogramme die- 
ser Ausgabe. 8 


Selbstvei dlich haben wir wieder Spiele für jeden Ge- 
schmackin diesem Heft abgedruckt. Ob Sie nun lieber Action- 
oder Denkspiele mögen, hier finden Sie hochkarätige Spiele 
zum Abtippen. 9 


Diese Ausgabe ist als handfestes Nachschlagewerk für die 
Grafik-Programmierung gedacht. Display-Lists, Zeichen- 
sätze und verschiedene Interrupts sind keine Rätsel mehr. 
Zusätzlich erhalten Sie die Registerdokumentation. 120 


eit entfernt, in einer frem- 
den Dimension haben Wis- 
senschaftler eine bizarre 


Welt entdeckt, die frei im Raum 
schwebt. Niemand kannsich erklären, 
woher sie kommt und wozu sie da ist. 
Fest steht jedoch, daß sie aus lauter 
geometrischen Formen besteht. Um 
diese Welt zu erkunden, wird sofort 
nach einem waghalsigen Mitarbeiter 
gesucht, der den Flug zu dieser 
Dimension und eventuell auftretende 
Gefahren nicht scheut. Da Sie mal 
wieder knapp bei Kasse sind, melden 
Sie sich für den Auftrag. 

Sie werden entsprechend ausgerü- 
stet und zum Abflughangar gebracht, 
wo Ihr Raumschiff auf Sie wartet. Als 
Sie es erblicken, trifft Sie fast der 
Schlag. Das Raumschiff ist von so 
alter Bauart, daß Sie glauben, es 
müsse jeden Moment auseinanderfal- 
len. Es sieht wie eine auf den Kopf 
gestellte Pyramide aus und besitzt 
zudem es ein völlig überholtes 
Antriebssystem. Dieses läßt das 


Raumschiff ständig um die eigene 
Achse rotieren, um so den nötigen 
Schub für eine Vorwärtsbewegung zu 


Eine neue, gut gelungene Um- 
setzung macht seit kurzer Zeit 
von sich reden: Spindizzy. Das 
Spiel wurde vom Schneider 
CPC so gut umgesetzt, daß 
jedem XL/XE-Freak das Herz 
höher schlagen dürfte. 


Treibstoffvorrat erhöht hat. Insgesamt 
können Sie auf diese Weise Treibstoff 
für 150 Sekunden in Ihrem Fahrzeug 
lagern. Als Sie sich dem Diamanten 
nähern, stellen Sie eine weitere Un- 
zulänglichkeit Ihres Gefährts fest: Die 
Bremsen funktionieren nicht. Um zu 
bremsen, müssen Sie also entweder 
genau entgegengesetzt zu Ihrer Fahrt- 
richtung Schub geben oder Sie benut- 
zen die Notbremse (die <SPACE>- 
Taste am Computer). Mit dieser kommt 
Ihr Fahrzeug augenblicklich zum Still- 
stand. Dafür verbraucht diese jedoch 
bei jeder Betätigung den Treibstoffvor- 
rat einer Sekunde, und Treibstoff ist 
kostbar. Ohne ihn bleibt Ihr Fahrzeug 
stehen, und Sie sind mutterseelen- 
allein auf der Ebene gefangen, ohne 
je wieder zurückzukehren. 


Spindizzy 


Bizarr geformte Klippen wechseln mit 
unebenem Gelände, endlosen Ab- 
gründen und Eiswüsten ab. Dann gibt 
es wieder Gebiete, die an eine Achter- 
bahn erinnern oder die befürchten las- 
sen, ineinem Labyrintnohne Ausgang 
gefangen zu sein. 

Interessant sind auch die verschie- 
denen Fahrstühle, mit denen Sie in 
andere Ebenen getragen werden. 
Einige dieser Fahrstühle lassen sich 
nur mit in den Boden eingelassenen 
Schaltern aktivieren, bei manchen 
sind gleich mehrere dieser Schalter 
notwendig. Schließlich entdecken 
Sie auch, daß Sie nicht allein in die 
ser Welt sind. Unbekannte Wesen 
huschen in bestimmten Gegenden 
umher. Schnell merken Sie jedoch, 
daß diese Wesen es einzig und allein 
auf Ihren Treibstoffvorrat abgesehen 
haben. Mit der Zeitfangen Sie an, sich 
Gedanken über den Sinn dieser Welt 
zu machen. Wer hat sie geschaffen 
und welchen Zweck soll sie erfüllen? 
Wer weiß, vielleicht lüften Sie das 
Geheimnis. 

Spindizzy wurde zuerst für den 
Schneider CPG geschrieben, dann 


Wie kommt man an den Diamanten ran? 


erzeugen (wer sich das wohl wieder 
ausgedacht hat). Widerwillig steigen 
Sie in das Fahrzeug und fliegen los. 
Als Sie bei der Ebene ankommen, 
zeigt sich Ihnen ein fantastisches Bild. 
Wie die Wissenschaftler geschildert 
haben, besteht alles aus geometri- 
schen Formen. Die quadratische Flä- 
che, auf der Sie sich befinden, hat 
nach allen Seiten Ausgänge und in der 
Luftschweben schimmernde Diaman- 
ten. Als Sie einen der Diamanten 
berühren, gibt es einen klirrenden 
Laut, und der Diamant ist verschwun- 
den. Dafür sehen Sie aber, daßsich Ihr 


Steile Klippen machen die Erkundung schwierig 


Diese Gedanken schieben Sie 
jedoch entschlossen beiseite und 
machen sich auf den Weg. Leicht tor- 
kelnd undschwankend fahren Sie eine 
Rinne entlang und finden sich kurz 
darauf aufeinem Gelände wieder, das 
zum großen Teil mit Wasser überflutet 
ist. Ein schmaler Weg führt durch die 
Fluten zum Festland. Gerade rechtzei- 
tig können Sie noch die Notbremse 
ziehen, um nicht im Wasser zu versin- 
ken. Wie nicht anders zu erwarten, 
kann Ihr Fahrzeug natürlich auch nicht 
schwimmen. Weiter führt Sie die 
Reise durch die fremde Landschaft. 


auf den C64 konvertiert und ist nun 
auch in einer Version für die Atari-8- 
Bit-Computer erhältlich. Wenn auch 
die Grafik keine so detaillierte Darstel- 
lung wie auf dem CPC erlaubt, so ist 
Spindizzy doch eine rundherum ge- 
lungene Umsetzung. Einen großen 
Vorteil hat jedoch die etwa halb so 
feine Auflösung der XL/XE-Computer: 
Die Bildschirme werden wesentlich 
schneller aufgebaut und die einzelnen 
Objekte bewegen sich fließender. 
Spindizzy ist seine 29,90 Mark auf 
Kassette beziehungsweise 39,90 Mark 
auf Diskette vollkommen wert. (hf) 
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ie Idee zu dem etwas betagten 
»Breakout« ist wohl so alt wie 


die Heimcomputer selbst. 
Lange Zeit flimmerte das Spielchen in 
verschiedenen Abwandlungen über 
die Monitore aller Heimcomputer, bis 
esnach einiger Zeit in der Versenkung 
verschwand. 

Erst seit kurzer Zeit erlebt die alte 
Idee ein nie dagewesenes Comeback. 
Ausgelöst wurde das Breakout-Fieber 
in der Spielhalle: mit dem Automaten 
»Arkanoid«. Jetzt ist es endlich auch für 
die Atari 8-Bit-Computer erschienen. 

Die Idee von Arkanoid ist einfach. 
Sie haben einen Schläger, den Sie am 
unteren Bildschirmrand hin und her 
bewegen können. Mit ihm versuchen 
Sie, einen furios herumsausenden 
Ball zu treffen. Im oberen Bildschirm- 
drittel befindetsich eine Mauer, die Sie 
Stein für Stein abbauen müssen. 
Jedesmal, wenn der Ball einen Mauer- 
stein erwischt, löst sich dieser (in 
Wohlgefallen) auf und hinterläßt eine 
positive Spur auf Ihrem Punktekonto. 
Wenn Sie alle Mauersteine wegge- 
schossen haben, kommen Sie in 
einen neuen Level. 

Die Hintergrundstory zu Arkanoid ist 
beachtlich aufgemöbelt, aber eigent- 
lich recht überflüssig für das Spiel: 
Das Raumschiff Arkanoid wird von 
einer bösen Macht (von wem sonst...) 
in einer Raum-Zeitfalle gefangen 
gehalten. Nur die Raumkapsel »Vaus« 
hat es geschafft, zu entkommen. Und 
eben diese Kapsel ist der Schläger, 
den Sie bedienen. Ihr Ziel ist es, sich 
durch 32 Screens zu kämpfen, um das 
Mutterschiff wieder freizubekommen. 
Damit das richtige Raumschiff-Gefühl 
aufkommt, ist die Grafik recht abstrakt 
gezeichnet. 

Manchmal sind in den Mauerstei- 
nen Zubehörteile verborgen, die man 
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Bald haben Sie’s geschafft.... 


Arkanoid 


Spielautomaten-Power gibt es 
auch auf dem Atari! Wer keine 
müde Mark mehr in die Spiel- 


hallen-Automaten investieren 
will, sollte sich Arkanoid für den 
XL/XE besorgen. 


mit dem Schläger einfangen muß. 
Diese Extras haben die Form von Ton- 
nen, die langsam nach unten fallen. 
Durch sie kommt Hektik auf. Wenn 
man nämlich nicht schnell genug ist, 
kann es passieren, daß man vor lauter 
Extra-Bonbons den Ball sausen läßt. 

Es gibt insgesamt sieben verschie- 
dene Zusätze, mit denen Sie Ihre Vaus 
ausstatten können. Ein »P« gewährt 
ein Extraleben. Wenn Sie ein »G« ein- 
fangen, klebt der Ball an dem Schlä- 
ger und kann so viel präziser wieder 
abgeschossen werden. Wenn Ihnen 
zuviel Hektik aufkommt, sollten Sie 
schauen, daß Sie ein »S« erwischen. 
Damit wird der Ball langsamer und 
somit leichter zu treffen. Besonders 
angenehm ist ein »L«, durch das die 
Vaus mit einem High-Speed-Laser 
ausgerüstet wird. Die Mauersteine 
sind damit in Nullkommanichts abge- 
räumt. 

Das »D« ist etwas für ganz beson- 
ders fixe Arkanoid-Spieler. Sobald Sie 
diese Tonne berühren, verwandelt 
sich Ihr Ball in drei kleinere Bälle. 
Natürlich treffen Sie jetzt dreimal so 
viele Mauersteine, aber Sie müssen 
auch drei Bälle gleichzeitig im Spiel 
halten! Mit »E« transformiert sich die 
Vaus in eine besonders breite 
Variante. Das wohl begehrteste Extra 
ist nach wie vor das »B«. Sobald Sie 
diese Tonne berühren, öffnet sich am 
rechten unteren Rand die Begren- 
zung. Wenn Sie mit der Vausin die ent- 
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standene Lücke hineinfahren, kom- 
men Sie automatisch in den nächsten 
Level. Daß dieses Extra nicht oft in 
einem Spiel vorkommt, versteht sich 
wohl von selbst. Oft anzutreffen sind 
dagegen der Kleber »G« und der 
»S«low-Modus. 

Aber auch mit diesen wichtigen Ver- 
günstigungen werden Sie schwer zu 
kämpfen haben, denn Arkanoid ist 
nicht einfach. Spätestens im dritten 
Level werden Sie Ihre Schwierigkeiten 
haben. Es tauchen Ziegel auf, die 
durch nichts zu vernichten sind. Auch 
ein Laser ist wirkungslos. Sie müssen 
schon genau zielen, um in den vierten 
Level zu kommen. Und es stehen 
Ihnen zweiunddreißig Level bevor ... 

Steuern können Sie Ihre Vaus mitso 
ziemlich allem, was Sie an Ihren Atari 
anschließen können. Keyboard, Padd- 
les oder Joystick stehen Ihnen zur Ver- 
fügung. Die Abfrage ist flott und rea- 
giert gut auf den Spieler. 

Grafisch gibt sich Arkanoid auf dem 
XLXE etwas zwiespältig. Die Hinter- 
grundgrafik ist absolut dem Automa- 
ten nachempfunden und braucht sich 
nicht vor einem 16-Bitter zu ver- 
stecken. Auch die Vaus sieht recht 
chic auf dem Bildschirm aus. Etwas 
seltsam ist dagegen der Ball geraten: 
Vier mal acht Pixel hoch, hat er nicht 
das beste Aussehen aller Bälle dieser 
Welt erwischt. Haarsträubend verläuft 
leider die eckige Flugbahn: Man kann 
manchmal zusehen, wie der Ball wäh- 
rend des Flugs rechnet. Sobald aber 
die Geschwindigkeit während des 
Spiels zunimmt, verschwindet der stö- 
rende Effekt. Insgesamt kann man 
sagen, daß die Umsetzung für den 
XL/XE sich nicht hinter anderen ver- 
stecken muß. Außerdem ist Arkanoid 
ein Spiel, von dem man sich nicht 
mehr so schnell losreißen kann. (al) 
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PROGRAMM- 


SERVICE 


Direkt bestellen statt Abtippen 


256 Farben gleichzeitig 


auf dem Bildschirm! 


Wos Atari in der Werbung versprach und nur bedin 

halten konnte, wird mit diesem Programm wahr 
jemacht: Auf dem Bildschirm sind gleichzeitig alle 256 
rben des Computers darstellbar. Zwei Programme 

nutzen diese Möglichkeit aus: 

Paint256 

ist ein Malprogramm, mit dem in 256 Farben gepinselt 

wird. Neben den üblichen Funktionen zum Zeichnen 

von Punkten, Linien und Flächen besitzt es eine Funktion 

zum Einbinden von Text ins Bild und zum Dehnen oder 

Stauchen von Bildelementen. 

Apfel256 

berechnet die Mandelbrotmenge in 256 Farben. Ein 

unvergleichlicher Anblick auf dem Atari Computer! 

Arax: 

Ein Krieg zwischen den beiden wichtigsten Völkem des 

Universums ist ausgebrochen. Als junger Kadett starten 

Sie ein waghalsiges Unternehmen und desertieren von 

Ihrer Einheit. Sie wollen dem unsinnigen Treiben ein Ende 

setzen und fliegen zu der Haupbasis des Feindes, um 

diese zu zerstören. Damit wären dann alle Probleme 

beseitigt. 

Helimann: 

In diesem Spiel fliegen Sie mit einem Hubschrauberruck- 

sack augerüstet durch unterirdische Höhlen. Jede 

Menge Gefahren lauem auf Sie, die Sie bewältigen 

müssen, um den Ausgang der Höhle zu erreichen. 


Zusätzlich ist im Spiel ein Editor enthalten, mit dem neue 
Höhlen entworfen werden. 

Paver: 

Ein Spiel für zwei. Sie fliegen mit einem Fahrzeug über 
eine moscikarfige nr und versuchen, an pas- 
senden Stellen Steine einzufügen. Wer als erster die 
Stelle für den nächsten Stein findet, bekommt die Punkte. 


Grafik Draw: 

Ein Malprogromrm für fast alle Grafikstufen der XUXE- 
Compufer. je Menüsteuerung macht die Bedienung 
extrem einfach. Fast alle Funktionen werden wahlweise 
mit einem Joystick oder einem Grafik-Jablet gesteuert. 
Zusätzlich steht eine Hardcopy-Routine zur % ügung, 
die sich einfach an verschiedene Drucker anpassen läßt. 
Char Maker: 

Dos ultimative Zeichensatzprogramm. Alle wichtigen 
Funktionen werden über den Joystick gesteuert. Unter- 
stützt die Grafikstufen 0, 1 und 12, mit Char Maker 
lassen sich also auch Farbzeichensätze editieren. 
Zusätzlich lassen sich die selbsterstellten Zeichensätze in 
eigene Basic-Programme einbinden. 

Weiterhin finden Sie Turbo Basic XL und alle weiteren 
Programme dieser Ausgabe auf der Diskette. 


2 Disketten für den Atari XU/XE 
Bestell-Nr.: 25720 


DM 34,90 E 29,5016S 349,-) 


Mehrwertsteuer. Unverbindliche Preisempfehlung 


Markt&dechnik 


Zeitschriften - Bücher 
Software -» Schuluni 


Markt&Technik Verlag AG, Buchverlag, Hans-Pinsel-Straße 2, 8013 Haar bei München, Telefon (089) 4613-0 


Bestellungen im Ausland bitte an: SCHWEIZ: Morkt& Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656 - ÖSTERREICH: Rudolf Lechner & Sohn, 
Heizwerkstraße 10, A-1232 Wien, Telefon (0222) 677526 - Ueberreuter Media Verlagsges. mbH (Großhandel), Alser Straße 24, A-1091 Wien, Telefon (0222) 491538-0. 


"PROGRAMMSERVICE 


Weitere Programmservice-Angebote für Atari XEIXL 


Schnelleres Kopieren auf Atari- 
Laufwerken 


Benötigen Sie ein Programm, mit dem Sie schnell 
ee ehe heitskopien Ihrer Doteien anfertigen kön- 
nen? Wellen Sie Ordnung in Ihre Diskeftensammlung bringen? 


Mit MFCOPY ein Kinderspiel. Zahlen mit Format: Mit die- 
ser Routine lassen sich in Turbo-Basic auf einfachste Weise Zah- 
len runden und formatiert auf den Bildschirm bringen. Diese 
Funktion ist besonders nützlich für Progromme, in denen statisti- 
sche oder kaufmännische Berechnungen durchgeführt werden. 
Tic-Tac-Toe: Als Endprodukt des Kurses Künstliche Intelligenz 
selbstgestrickt wurde dieses Programm vorgestellt. Dieses Spiel, 
bei dem Sie gegen den Computer antreten, veranschaulicht die 
professionelle Programmierung von Strategiespielen. Jump: 
Sie steuern einen Tennisball, der über eine durchlöcherte Ebene 
hüpft. Dabei müssen Sie jeden Sprung exakt vorausberechnen 
und obendrein noch einem Pfeil ausweichen, der sein Unwesen 
treibt. The Final Fight: In diesem fesselnden Action-Spiel 
müssen Sie Ihr notgelandetes Raumschiff gegen Angriffe vertei- 
digen. Die Bewohner dieses Planeten sehen Ihre landung als. 
feindliche Kompfhandlung an und versuchen Sie mit allen Mit- 
teln zu vertreiben. Die Anleitung zu diesen Programmen finden 
Sie in den Avsgaben 4, 5, 6 und 7 der Happy-Computer. 

1 Diskette für Atari-XUXE-Computer 


Bestell-Nr: 20707 DM 29,90* sfr 24,90/55 299,-" 


Turbo-Basic — 

Das Nonplusultra für Programmierer 
Turbo-Basic (12/85): Der schnelle Bosic-Interpreter für den 
‚Atari-Computer. Aufder Diskette befinden sich je eine Version für 
den Atari 800XL und den Atari 800 mit mindestens 48 KByte 
RAM. Ampel (12/85): Atori-Moschinen-Programm-Eingabe- 
Listing. Atari-Prüfsummer: Eingabehilfe für alle in Hoppy- 
Computer veröffentlichten Bosic-Programme. Jumper Il: 
Listing des Monats 8/84, um die Geschwindigkeit von Turbo- 
Basic zu demonstrieren. Magic-Painter: Listing des Monats 
3/85. Ein Zeichenprogrumm, das an Turbo-Bosic angepaßt 


wurde, 
1 Diskette für Atari BOOXL/130XE/800. 
Bestell-Ne.: LH85128 DM 29,90* sFr 24,90/55 299,-* 


Wind: Turbo-Basi 
Turbo-Windows (9186): Fenstertechnik tür Turbo-Bosic. 
Drehkörper (9186): Ein schnelles Programm in Turbo-Basic 
zum Zeichnen von 3D-Funktionen. Labyrinth (3/87): Unser 
Listing des Monats März stellt wieder einmal die Krönung der 
Programmierkunst auf den Atari XE/XL-Computern dar. Sie steu- 
‚em eine Schlange durch ein Labyrinth und sammeln Gegen- 
stände auf, ohne sich dabei selbst zu beißen. Morky (1187): 
‚Schlüpfen Sie in die Rolle unseres kleinen Helden und erforschen 
Sieinsgesomt 35 Räume des lobyrinths, um an Ihr Ziel zu gelon- 
‚gen! Mord im Computer (4/86): Als Mark Simpson versu- 
a Sie, das Verschwinden Ihres Freundes aufzudecken. Far- 
gen! (8186): Mehr Forben auf dem Bild- 
Be (10/86): Fehlt Ihnen ein Vorspann für Ihr 
neues Spiel® Kein Problem mit unserem iinenprogramm! 
1029 Hardcopy (10/86): Dieses Programm erledigt schnell 
und sauber Ausdrucke auf dem Atari 1029-Drucker. Diashow 
(11186): Zur Präsentation von computergenerierten Bildem. 
Nanoconverter (12/86): Mit diesem Programm können Sie 
komfortabel und menügesteuert Ihre Spiele von Diskette in den 
Computer laden. Drucker-Kosmetik (2/87): Deutsche 
Sonderzeichen und Unterlängen sind mit dem Drucker Atari 
1029 nicht ohne weiteres darstellbar. Diesem Nachteil wird hier. 
zu leibe gerückt. Print-Si (2187): Mit die- 
‚sem Programm in Turbo-Bosic drucken Sie Ihre Grafiken über- 
sichtlich auf Papier. 
1 Diskette für Atari-XUXE-Computer 


Bestel-Nr.: 20708 DM 29,90* sFr 24,90/55 299,” 


Grafik unter Turbo-Basic 
Turbo-Basic-Interpreter und -Compiler für Atari- 
Computer © Apfelmännchen in Turbo-Bosic @ Grafik unter 
Turbo Basic XL @ Daten komprimiert gespeichert @ Disksorter 
Submission (labyrinthspiel) @ Vorsicht Falle pe) . 
Pocmon mal 2 ® Zeichensatzumwandler @ 

2 Disketten für Atari 800XL-/130XE- a 


Bestell-Nr: 20703 DM 29,90* sFr 24,90/85 299,-" 


Auf der Suche nach dem 
schwarzen Gold 


Ölsuche (8/85): Spiel, bei dem Sie mit dem Atari ST auf 
Ölsuche gehen. Atari-Prüfsummer: Eingabehife für alle in 
Hoppy-Computer veröffentlichten Basic-Progromme. Geröll- 
heimer (5/85): Spiel mit Screen-Editor und 20 fertigen Sze- 
nen. 24 Farben in © (6185): Routine für for- 
bige Schrift. Diskhelp (8/85): Für die schnelle Rettung. 
Autostart (9185): Basic-Programme starten automatisch. 
Dudu 4.0: Mehr Speicher mit der Floppy 1050. 

] Diskette für Atari BOOXL 


Bestell-Nr.: H85108 DM 29,‘ 
Painter - 


ble Malprogramm 
Happy-Painter: Unser Listing des Monats der Ausgabe 
3/85 ist ein Grafikprogramm, das sich mit anderen Malprogram- 
men dieser Art messen kann. Besonders gelungen ist die einfo- 
che Bedienung, do man mit dem Joystick sowohl im Haupt- als 
auch in den Untermenüs sämtliche Punkte anwählen kann. Der 
elektronische Malkasten verfügt über 16 Menüpunkte und bietet 
eine Grofikauflösung von 160x96 Pixel. Grafikdemo 
(3185): Alle 256 Farben werden auf dem Bildschirm darge- 
stellt. Eine Farbspielerei, die die hervorragenden Grafikfähigkei- 
ten der Atari-Computer beweist (Roinbow-Effekt). Variablen- 
Dump (2/85): Mit diesem Programm können Sie die verwen- 
deten Varioblen eines anderen Programms auf dem Bildschirm 
listen. Als die Bilder laufen lernten: Wit dem Utility 
Power-Mover können Sie laufende Bilder schnell und problem- 
los erzeugen. Statuszeile mit Uhr (1/85): Damit Sie beim 
Programmieren nicht die Uhrzeit vergessen, hilft nur eine ständig 
sichtbare Zeitanzeige. Mit diesem Programm können Sie eine 
zusätzliche Stotuszeile oberhalb des Bildschirms generieren. 
1 Diskette für Atari-Computer mit mind. 48 KByte RAM 


Bestel-Nr.: 1485038 DM 29,90* sFr 24,90/55 299,-* 


Die Jagd nach Gold, Juwelen 

und Diamanten 

Diamantenfieber: Unser Listing des Monats 2/85 ist eine 
wahre Schatztruhe. Bereichen Sie sich on bunt glitzernden Dio- 
manten, die überall in einem verteilt sind. Aber Vor- 
sicht! Die Stollen sind sehr instabil. Eine folsche Bewegung, und 
‚Sie werden von losen Gesteinsbrocken erschlogen. Ein Spiele- 
Designer sorgt bei unserer exzellenten Boulder-Dash Variante 
für anhaltende Sponnung. Die Schatzsuche (Ausg. 
1185): Wer möchte sich nicht auch mit einem Schatz be- 
reichem? Wer dazu nicht unbedingt eine Weltreise unter- 
nehmen möchte, kann mit seinem Atari 800XL in eine Schatz- 
höhle eindringen. Gefährliche Tiere wie Skorpione, Ratten und 
Schlangen erschweren die Suche. Zeilenzauber (11/84): 


* sfr 24,90/85 299,-* 


Des 


Die wichtige RENUMBER-Funkion fehlt leider im Siondard- 
Bosic-Editor des Atari. Dieses 


it diesen 
h}: Ein 
ie 


” 
zellente. Programmierung, ein High-Score-Zöhler und ein ein- 
gebautes Demo werden selbst Zweifler schnell überzeugen. Auf 
musikalische Untermalung wurde großer Wert gelegt, und die 
verschiedenen Screens sind brillant gemacht. Mop - Der 
(7184): Schnelligkeit und guter Sound zeich- 
nen dieses Spiel aus. Die Soundfähigkeiten sind wirklich hervor- 
ragend. Viele Bilder sorgen für Abwechslung. 
1 Diskette für Atari-Computer mit mind. 48 KByte 
Bestell-Nr: LH85028 DM 29,90* sfr 24,90/55 299,-* 
"inkl. Mehrwertsteuer. Unverbindliche Preisempfehlung 


Sie suchen packende Spie) 
hilfreiche Unities und prof 


eisen? Hior finden Sie bei 
Unzer stetig wachsendes Sorti- 
ment enthält interessante Listin 
Softwore für alle gängi 
Computeriypen. Jaden Manat 
Srwoitert sich unser aktuelles 
Angebot um eine weitore intor- 
essanıe Programmsammlung für 
jeweils einen Computertyp. 


Bestellungen bitte or 
Markt& Technik Verlag AG, 
Unternehmensbereich Buch- 
voll; Hans Pinsel Siraße 2, 
0.8013 Haor, Telefon (089) 
4613-0. Schweiz: 
Markt Technik Vertriebs AG, 
Kollerstrasse 3, CH-6300 Zug, 
Telefon (042) 415656. Oster- 
reich: Ueberreuter Media 
Hondels- und Vorlagsgesell- 
schoft mbH (Großhandel), 
‚Alser Straße 24, A-1091 Wien, 
Telefon (0222) 4815380; 
Microcomput-ique E- Schiller, 
Fasangaste 24, A-1020 Wi 


Telefon (0222) 785601; Bücher 
zentrum Meidling, Schönbrun- 
ner Straße 261, A120 Wien, 
Telefon (0222) 833196. Bestel- 
lungen aus anderen Ländorn 
Bine nur schriftlich on: 

kt &Techt 


und 
gegen Bezahlung einer Rech- 
ung Im voraus. 


Bitte verwenden Sio für Ihre 
Bestellung und Überweisung die 
eingehettate Postgiro-Zahlkarte, 
oder senden Sie uns einen 
Verrechnungs-Scheck mit Ihrer 
Bestellung. Sio erleichtern uns 
die Auftragsabwicklung, und 
dofür berechnen wir Ihnon keine 
Versandkosten. 


Die Kämpfer sind im Stadtpark... 


der Bund der Zauberer noch 

über das Land herrschte. Er 
regierte das Land weise, gerecht und 
immer zum Vorteil des Volkes. Alle 
Gerechtigkeit, Güte und Weisheit ent- 
stammten einer Krone. Wer diese 
Krone aufsetzte, besaß alle Weisheit 
der Welt und konnte Dinge in der Ver- 
gangenheit und Zukunft erblicken. 
Kurz, die Krone war ein absolutes 
Machtinstrument. 

Ein Zauberer war für die Dauer einer 
vorbestimmten Zeitspanne dazu aus- 
erwählt, die Krone zu tragen und das 
Land zu regieren. 

Eines unglücklichen Tages kam es, 
daß der Zauberer Tarmon ander Reihe 
war, die Krone an den nächsten im 
Bunde weiterzuleiten. Der dachte 
jedoch nicht daran, seine erworbene 
Machtstellung aufzugeben. So ent- 
brannte ein bitterer Kampf unter den 
Hexenmeistern, den nur wenige über- 
lebten. Häßliche Kreaturen bevölkern 
fortan die Ruinen der einst prächtigen 
Stadt Arghan, von der aus die Magier 
früher herrschten. 

Die letzten Zauberer versuchen ver- 
zweifelt, die Krone wieder an sich zu 
bringen. Kaitar, der älteste der übrig- 
gebliebenen, hat dazu einen Plan 
ersonnen. Er will unerschrockene 
‚Abenteurer anheuern, die versuchen 
sollen, die Krone den Händen Tar- 
mons zu entreißen. Falls sie ihre Auf- 
gabe erfüllen, warten Ruhm und eine 
so hohe Entlohnung auf die Abenteu- 
rer, daß ein Menschenleben nicht aus- 
reicht, das Geld auszugeben. 

Soweit zur Vorgeschichte von 
»Wizard’s Crown«, die anderthalb Sei- 
ten der 32 Seiten starken Anleitung 
zum Spiel in Anspruch nimmt. Viel zu 
lesen also für den Adventure- 
Begeisterten. 


E: geschah vor 500 Jahren, als 


...und müssen sich gegen Riesenspinnen wehren 


Ein neues Rollenspiel ist für die 

kleinen Atari-Computer er- 

schienen: »Wizard’s Crown«. 

Bei diesem Spiel, das ähnlich 

umfangreich wie »Ultima IV« ist, 

müssen acht Kämpfer eine 
Krone suchen. 


Wizard’s Crown ist ein Rollenspiel 
ä la»Dungeons and Dragons«. Soviel 
wurde in der Vorgeschichte schon ver- 
raten: Man spielt mit mehreren Cha- 
rakteren gleichzeitig. Das ist auch 
einer der Gründe, warum man sich 
nicht als Einsteiger an das Spiel her- 
anwagen sollte. Bis zu acht Figuren 
sollen gleichzeitig kontrolliert werden, 
wobei die Anleitung nicht ohne trifti- 
gen Grund empfiehlt, zu Beginn des 
Spiels alle acht Charaktere zu nutzen. 
Das Spiel ist sonst zu schnell vorüber. 

Zu Beginn befinden sich alle Cha- 
raktere in einer Kneipe, in der sie sich 
von ihren Streifzügen ausruhen kön- 
nen, erbeutete Schätze und Waffen 
lagern, sowie im Falle des Ablebens 
eines Mitglieds einen neuen Abenteu- 
rer anheuern können. Von hier aus 
startet die Kampfgemeinschaft, die 
Krone zu suchen. Am Anfang sollte 
man sich jedoch erst einmal auf die 
Stadt beschränken. Hier gibt esschon 
genug zu entdecken. Schnell kommt 
eszu einem ersten Kampfmiteinerder 
zahlreichen Räuberbanden der Stadt. 
Der Computer stellt dann Kampfmög- 
lichkeiten zur Auswahl: Zum einen gibt 
es den schnellen Kampf. Hier über- 
nimmt der Computer alle Steuerfunk- 
tionen der einzelnen Charaktere und 
der Angreifer. Zum anderen gibt es 
den normalen Kampf. 

Zu Beginn des Gefechts muß sich 
die Gruppe erst formieren, um dem 


Angreifer mit maximaler Kampfkraft 
gegenüberzutreten. Zauberer sollten 
sich im Hintergrund halten, und Kämp- 
fer in vorderster Front stehen. 
Anschließend geht das Hauen und 
Stechen los. Jeder der acht Gruppen- 
mitglieder kann einen der Angreifer 
bekämpfen. Dabei spielt die Waffe und 
Rüstung des Angreifers genau soeine 
Rolle wie die Position des Gruppen- 
mitglieds zum Feind. Besitzt der Krie- 
ger zum Beispiel ein Schild, sollte er 
sich so hinstellen, daß der Feind links 
von ihm steht, daerdann einenSchlag 
des Angreifers mit dem Schild am lin- 
ken Arm abfangen kann. Insgesamt 
stehen 21 Funktionen während des 
Kampfes zur Verfügung. 

Haben die Gruppenmitglieder ein 
Gefecht überstanden, so bekommen 
sie Erfahrungspunkte, mit denen sie 
ihre verschiedenen Eigenschaften wie 
Wendigkeit, Umgang mit der Waffe, 
Ausdauer und Stärke verbessern. 
Zauberer brauchen magische Ener- 
gie, um ihre Kunst betreiben zu kön- 
nen. Nach einem Kampf geht es auch 
darum, den besiegten Feinden Waffen 
und Geld abzunehmen. Einige Waffen 
sind verzaubert und haben eine 
wesentlich verheerendere Wirkung 
als die Originalwaffen der Gruppen- 
mitglieder. Waffen, die die Kämpfer 
nicht gebrauchen können, lassen sich 
auf dem Markt zu Geld machen. Mit 
dem Geld wiederum können die Cha- 
raktere in einer Kneipe übernachten. 

Auch wenn das Spiel extrem kompli- 
ziert zu sein scheint (was es übrigens 
auch ist): Es bringt riesengroßen 
Spaß. Bis man die Krone gefunden hat 
und sie Kaitar zurückbringen kann, 
wird eine ganze Weile vergehen. Und 
fallsmansie wirklich finden sollte, eine 
Fortsetzung des Adventures ist in 
Planung. (hf) 
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Leader Board 


ei Leader Board hat man die 

Wahl zwischen drei Schwierig- 

keitsstufen, »Novice«, »Ama- 
teur« und »Professional«. Bei letzterer 
spielen Faktoren wie Seitenwind und 
Anriß des Balls eine tragende Rolle. 
Diese Stufe sollte man wirklich nur 
wählen, wenn man schon länger Lea- 
der Board gespielt hat und in der 
Bedienung der vielfältigen Funktionen 
firm ist. Nach der Wahl des Schwierig- 
keitsgrades fragt das Programm nach 
der Anzahl und den Namen der Spie- 
ler. Bis zu vier Spieler können gleich- 
zeitig ein Spiel bestreiten, wobei das 
Programm vier verschiedene Kurse an 
zu spielenden Löchern zur Auswahl 
stellt. Kurs 1 ist der leichteste und 
sollte von dem Anfänger gespielt wer- 
den. Bei Kurs 4, dem schwierigsten, 
sind die einzelnen Bahnen somit Was- 
serlöchern und Inseln gespickt, daßes 
arge Schwierigkeiten bereitet und 
hoher Genauigkeit bei der Dosierung 
des Schlages bedarf, um eine Bahn zu 
meistern. 

Das Spiel beginnt damit, daß ein 
kleines Männchen, zusammen mit der 
Ansicht der Bahn, aus der Perspektive 
des Männchens gezeichnet wird. Jetzt 


Sportspiele gibt es zur Genüge, 
auch für die kleinen Atari- 
Computer. Trotzdem hat die 
Firma Access-Software ihre 
Golf-Simulation für diesen 
Computer umgesetzt. Das hat 
einen guten Grund, denn »Lea- 
der Board« ist bislang die am 
besten gelungene Golfspiel-Si- 
mulation, die es zu kaufen gibt. 


stärke, durch den zweiten Druck den 
Anriß des Balls fest. Je nach gewähl- 
tem Schläger fliegt der Ball nun eine 
bestimmte maximale Strecke. Die 
maximalen Schlagweiten der einzel- 
nen Schläger sind in dem Handbuch 
aufgeführt. Da der Computer ständig 
die Entfernung des Spielers zum Loch 
anzeigt, hat man mit aufgeschlage- 
nem Handbuch neben dem Computer 
schnell heraus, welchen Schläger 
man wählen muß. Ging der Schlag 
nun völlig daneben oder fiel der Ball 
ins Wasser, so gibt es einen weiteren 
Versuch von genau der gleichen Posi- 
tion aus. 

Ist der Ball dagegen auf dem Fest- 


I = COURSE FOund . 


dazugezählt, bei mehr benötigten 
Schlägen werden Punkte abgezogen. 
Es kann also durchaus vorkommen, 
daß man am Schluß der 18 Bahnen 
eines Spiels eine negative Punktezahl 
hat. 

Beim Auspacken der Diskette fällt 
ein kleiner Stecker auf, der am Joy- 
stickport 2 aufgesteckt wird. Dieser 
Stecker, im Fachjargon »Dongel« ge- 
nannt, dient als Raubkopierschutz des 
ansonsten ungeschützten Programms. 
Das Programm fragt periodisch die- 
sen Stecker ab. Sollte er einmal wäh- 
rend des Spiels abgezogen werden, 
so wird der Bildschirm sofort mit 
wüsten Linien überzogen, das Pro- 
gramm verweigert in dem Fall die 
Arbeit. Bei der Diskette befindet sich 
eine 16seitige Anleitung, in der die 
besondere Bedienung des Spiels be- 
schrieben wird. Auch wenn den An- 
fänger die Bedienung des Spiels 
etwas kompliziert anmutet - hat man 
das Prinzip der Funktionen ersteinmal 
begriffen, ist die Bedienung kin- 
derleicht. 

Wie wohl alle Sportspiele bringt 
Leader Board mit mehreren Spielern 
wesentlich mehr Spaß als allein. Da 


Mit der Anzeigetafel hat man immer den Überblick 


legt man mit dem Joystick mittels 
eines Kreuzes auf dem Bildschirm die 
Schlagrichtung fest. Ein kleiner Pfahl 
seitlich des Spielers informiert über 
die herrschende Windrichtung und die 
Windstärke. Der Schlag muß nun in 
dieser Richtung ausgeführt und so 
dosiert werden, daß der Wind kom- 
pensiert wird. Anfangs keine leichte 
‚Aufgabe, denn die Kontrollen bei Lea- 
der Board sind genauso kompliziert 
wie funktionsgerecht. 

Durch den ersten Druck auf den 
Joystickknopf legt man die Schlag- 


land liegengeblieben, so wird ein 
neuer Bildschirm gezeichnet. Falls der 
Ball nun innerhalb eines Radius von 
64 Fuß zum Loch gelangt sein sollte, 
hat man nur noch einen Schläger zur 
Verfügung. Dieser »Putter« genannte 
Schläger ist dazu da, den Ball sachte 
ins Loch zu spielen. Je nach der 
Anzahl der Schläge, die man für eine 
Bahn benötigte, werden vom Pro- 
gramm Punkte vergeben. Für jede 
Bahn ist dabei eine bestimmte Anzahl 
Schläge vorgegeben. Braucht man 
weniger Schläge, werden Punkte 


Golfbahnen aller Schwierigkeitsgrade laden zum Spielen ein 


die Simulation durch gute Program- 
mierung einen Bezug zur Realität her- 
stellt, kann man durchaus Geschmack 
auf richtiges Golfen bekommen. Die 
Grafik und die Kontrolle über die 
Schläge ist sehr gut. Leider fehlen wie. 
in anderen Versionen Bäume in den 
Bahnen. Trotzdem ist Leader Board 
ein Spiel, dasimmer wieder gerne her- 
vorgeholt werden wird. 

Leader Board ist auf Kassette und 
Diskette erhältlich und kostet 39 Mark 
in der Kassetten- sowie 59 Mark in der 
Diskettenversion. (hf) 
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kommt der Tag, 
an dem mit den 


Ansprüche 
steigen. 


ı Dann sollten Sie 
| vorbereitet sein. 
| 


»PC Magazin« ist der 
entscheidende Schritt 


zur professionellen 
Computeranwendung. 


Die aktuelle Wochenzeitung für Per- 
sonal Computer im IBM-Standard. 
I Wenn Sie an aktuellen und umfas- 
‚senden Informationen über IBM-PCs 
undkompatible Systeme interessiert 
sind # Wenn Sie stets über die neu- 
esten und effektivsten Anwendun- 
gen für den professionellen und pri- 
vaten Bereich informiert sein wollen 
JE Wenn Sie sichmit CAD/CAM und 
Netzwerken beschäftigen, dann ist 
das »PC Magazin« genau Ihre Zeit- 
‚schrift. 

Zur Anforderung Ihrer kostenlosen. 
'Probeexemplare einfach denneben- 
stehenden Gutschein ausfüllen, aus- 
‚schneiden, aufeine Postkarte kleben 
‚oder in ein Kuvert stecken und ein- 
senden an: 

Markt & Technik, Verlag Aktienge- 
sellschaft, PC Magazin Abonnen- 
ten-Service, Postfach 1304, 
8073 Haar bei München. 


PC Magazin: 


a 


Ich interessiere mich für »PC Magazin, die Zeit- 
schrift über IBM-PCs und Kompatible. Schicken 
Sie mir vier Ausgaben kostenlos als Probeexen- 
plare. 


Wennich »PC Magazin« nicht weiterlesen möchte, 
teile ich Ihnen dies sofort nach Erhalt der dritten 
‚Ausgabe mit, Gefällt mir »PC Magazin«, so daßich 
es regelmäßig weiterbeziehen möchte, brauche 
ich nichts zu tun: Ich erhalte mein »PC Magazin« 
dann regelmäßig jede Woche per Post frei Hausge- 
liefert und bezahle proJahrnurDM 155,— statt DM 
229,50 im Einzelverkauf. Zustellung und Postge- 
bühren übernimmt der Verlag. 


Das Abonnement verlängert sich automatisch um 
ein weiteres Jahr zu den dann gültigen Bedingun- 
‚gen, wenn es nicht 2 Monate vor Ablauf schriftlich 
gekündigt wird. 


Dieses Angebot gilt nur in der Bundesrepublik 
Deutschland einschließlich West-Berlin. Auslands- 
preise auf Anfrage. 


FÜR VIER KOSTENLO: 


SE PROBEEXEMPLARE 
Name 
Vomame 
Straße 
PLZ Or 


Datum, 1. Unterschrift 

Mir ist bekannt, daß ich diese Bestellung innerhalb 
von 8 Tagen bei Markt& Technik, Hans-Pinsel-Str. 
2. 8013 Haar widerrufen kann. Zur Wahrung der 
Frist genügt die rechtzeitige Absendung des Wi- 
derrufs. Ich bestätige dies durch meine 2. Unter- 
schrift. 


Datum, 2. Unterschrift 


Mit einem Freezer lassen sich 
Sicherheitskopien geschützter 


Programme anfertigen. Der 
»Turbo-Freezer XL« bietet zu- 
sätzlich ein DOS, einen Monitor 
mit Disassembler, 256 KByte 
RAM und das Betriebssystem 
der alten Atari Computer. 


as ist ein »Freezer«? Ein 

Freezer (englisch to freeze‘, 

einfrieren) ist ein Computer- 
zusatz, gleich ob Hardware oder Soft- 
ware, der ein beliebiges Programm im 
Computer anhält und auf Diskette 
oder Kassette speichert. Anschlie- 
Bend läßt sich das Programm wieder 
laden und an genau der gleichen 
Stelle fortsetzen, an der es »eingefro- 
ren« wurde. Auf diese Weise läßt sich 
von jedem Programm, das nicht wäh- 
rend des Laufens Teile nachlädt, eine 
Sicherheitskopie anfertigen, auch 
wenn der Kopierschutz noch so gut 
ausgeklügelt ist. 

Für den C64 gibt es Freezer schon 
länger. Die Atarianer mußten auf die- 
sen nützlichen Zusatz jedoch bislang 
verzichten, da die interne Struktur der 
Atari 8-Bit-Computer es sehr kompli- 
ziert macht, Programme an einer 
beliebigen Stelle anzuhalten und 
ohne Veränderungen wieder zum Lau- 


fen zu bringen. Bernhard Engl, der 
den Atarianern durch sein 
Turbo-1050-Modul für die Disketten- 
station bereits ein Begriff ist, hat nun 
einen Freezer für den XL entwickelt. 

Der Turbo-Freezer XL entpuppt sich 
als ein 8,5 mal 10,5 Zentimeter großes 
mit elektronischen Bauteilen vollge- 
packtes Platinchen, das hinten auf 
den Erweiterungsbus des XL aufge- 
steckt wird. An der Seite der Platine 
steht ein kleines Kabel ab, das die 
Stromversorgung des Freezers 
sicherstellt. Ans Ende des Kabels ist 
eine schmale Hülse angelötet. In der 
Anleitung wird darauf hingewiesen, 
daß der Turbo-Freezer XL ganz ohne 
Lötarbeit zu installieren ist. Deshalb 
wird die 5-Volt-Versorgungsspannung 
mit dem Kabel am Joystickport abge- 
griffen. Die Hülse wird zu diesem 
Zweck auf den unteren zweiten Pin 
von links an einem der beiden Joy- 
stickports aufgesteckt. Am Computer 
montiert, sieht der Freezer dann ein 
wenig abenteuerlich aus, denn 
offene Platine steht ein gutes Stück 
über den Rand des Computerge- 
häuses hinaus, und das Kabel am Joy- 
stickport macht auch keinen sehr ver- 
trauenerweckenden Eindruck. Da 
hätte man sich doch ein stabiles 
Gehäuse für die Platine gewünscht. 
Mit Blick auf den Preis des Freezers 
darf man jedoch nicht meckern. 
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Wenn man den Computer einschal- 
tet, merkt man zunächst überhaupt 
nichts vom Freezer. Wir waren im 
Basic-Modus, und der Computer mel- 
dete sich ganz normal mit »READY«. 
Auf der Freezer-Platine befindet sich 
ein auffälliger kleiner roter Knopf. 
Wenn man diesen drückt, erwacht der 
Freezer zum Leben und übernimmt 
das Kommando über den Computer. 
Der Freezer hat jetzt schon sämtliche 
Prozessor-Register und Hardware- 
Register gespeichert und die Werte in 
seinem RAM verwahrt. Man befindet 
sich dann im Hauptmenü des Free- 
zers. Dieses besteht aus sechs Funk- 
tionen, die durch einfaches Tasten- 
drücken aufgerufen werden. Zunächst 
gibt es die Funktion »Save extern«, mit 
der der gesamte Computerspeicher 
auf Diskette oder Kassette gespei- 
chert wird. Bei Diskettenbetrieb läßt 
sich zusätzlich bestimmen, obein vom 
DOS lesbares File erzeugt werden 
soll, oder einfach nur die Disketten- 
sektoren beschrieben werden. Um 
nicht allzuviel Platz zu verschwenden 
und die Lade- und Speicherzeiten in 
Grenzen zu halten, wird der Compu- 
terspeicher in einer kompakten Form 
abgelegt. Dieser Datenblock enthält 
auch sämtliche von Freezer zum Zeit- 
punkt der Aktivierung gesicherte 
Registerwerte. 


Sicherheit geht vor 


Mit»Exec extern«wird einsogespei- 
cherter Datenblock wieder in den 
Computer geladen, sämtliche Regi- 
ster restauriert und das Programm an 
genau der gleichen Stelle fortgesetzt, 
an der es unterbrochen wurde. Wir 
haben einige Programme mit dem 
Freezer ausprobiert und konnten 
keins finden, das nach dem Auftauen 
nicht lief, oder das nach dem Starten 
irgendwelche Fehler zeigte. Mit dem 
Freezer hat man also die Möglichkeit, 
von kopiergeschützten Programmen 
Sicherheitskopien zu ziehen. Interes- 
santistauch, ein Spielan einer gefähr- 
lichen Stelle einzufrieren und zu spei- 
chern. Verliert man sein Spielerleben, 
kann man mit dem Freezer sofort an 
der gespeicherten Stelle weiterma- 
chen und muß sich nicht erst wieder 
durch sämtliche Gefahren kämpfen. 

Mit dem dritten Menüpunkt, »Zero 
OS RAM«, wird das RAM unter 
dem Betriebssystem gelöscht. Pro- 
gramme, die diesen Speicher nicht 
benutzen, werden dadurch in ge- 
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AUFBRUCH IN EINE NEUE DIMENSION 


mit »68000er«, dem Magazin der neuen 
Computer-Generation 


>» Programmiersprachekurse für Basic, C, 
Modula und Assembler. 


» Bauanleitungen für professionelle Hard- 
ware-Erweiterungen. 


» Spiele-Spaß und -Spannung auf höchstem 
Niveau. 


Ihre hot-line zur Spitzentechnologie von 
AtariST, Amiga, Macintosh und Sinclair OL. 


POSTERZSG UTSCHEIN 
.£ Ei K os os FÜR EIN KOSTENLOSES PROBEEXEMP LAR 


DES »68000er«-MAGAZINS u 


84 60 Zentimeter High- JA, ich möchte »68000er«, das Magazin der neuen Compu- 
ter-Generation, kennenlernen. 
Senden Sie mir bitte die aktuellste Ausgabe kostenlos als Pro- 
beexemplar. Wenn mir »68000er« gefalit undich es regelmäßig 
weiterbeziehen möchte, brauche ich nichts zu tun: Ich erhaltees 
dann regelmäßig frei Haus per Post. Außerdem nutze ich den 
‚Abonnement-Preisvorteil von 8% und bezahle pro Jahr nur 
Dar JOMin Einzelverkauf. 


Vorname. 
Name 
Straße 
PLZ, Ort 


Datum ______ 1. Unterschrift 


:t bekannt, daß ich diese Bestellung innerhalb von 8 Tagen 
bei der Bestelladresse widerrufen kann und bestätige dies 
durch meine zweite Unterschrift. Zur Wahrung der Frist genügt, 
die rechtzeitige Absendung des Widerrufs. 


Datum ______ 2. Unterschrift 


‚Gutschein ausfüllen und absenden an: Markt& Technik Verlag 
Aktiengesellschaft, Vertrieb, Postfach 1304, 8013 Haar 
HCS20, 


Das relationale Datenbanksystem 
für Ihren Atari ST 


dBMAN ist ein leistungs- 
starkes und flexibles 
Datenbanksystem 


Ihre Daten werden damit relational aufgebout 
und verarbeitet. Doch das ist noch nicht alles: 
Mit der integrierten, bedienerfreundlichen 
Programmiersprache von dBMAN entwickeln Sie 
Ihre individuellen Anwendungsprogromme. Sie 
erstellen Auftragsbearbeitungsprogramme und 
andere komplizierte Anwendungen. dBMAN ist 
zu dBASE Ill kompatibel. 

Als Umsteiger haben Sie dadurch die Möglich- 
keit, sofort mit dBMAN zu arbeiten. 


Leistungsmerkmale: 


© dBMAN erzeugt vollständige Datenbanken. 
Sie können auch im nachhinein ohne Daten- 
verluste die Struktur verändern und erweitern. 


© Sie verwalten Ihre Doten mit dem mitgeliefer- 
ten ASSIST(enten), ohne zeitraubend ein Hand- 
buch wälzen zu müssen. 


© Das Zufügen, löschen, Verändern, Darstellen 
und Ausdrucken von Daten erfolgt aut einfache 
Weise. 


© Sie können bis zu 10 Dateien gleichzeitig 
öffnen, 2 Billionen Datensätze pro Datei ver- 
walten und eine unbegrenzte Zahl von Variablen 
verarbeiten. 


Hardware-Anforderung: 


‚Atari ST mit mindestens 400 Kbyte 
freiem Speicher (\Mbyte RAM 
oder 0,5 Mbyte und TOS im ROM), 
SM-124- oder SC-124-Monitor, 
mindestens ] Diskettenlaufwerk. 


ATARI ST-Software 


Bestell-Nr. 51109 


DM 399 (sFr 345,-/85 3990,-*) 


dBMAN * inkl. MwSt. Unverbindliche Preisempfehlung 
VAL N Diese Markt&Technik-Softwareprodukte erhalten 

‚Alle Fähigkeiten einer Sie in den Fachabteilungen der Warenhäuser, 

relationalen Datenbank im Versandhandel, in Computer-Fachgeschäften 


Zwei 3%"-Disketten für die ATARI ST .- ‚oder im Buchhandel. Wenn Sie direkt beim 
ma mngesiens. 


Markt&Technik Verlag AG, Buchverlag, Hans-Pinsel-Stroße 2, 8013 Haar bei München, Telefon (089) 4613-0 


512 Kos from RAM Verlag bestellen wollen: gegen Vorauskosse 
durch Verrechnungsscheck oder mit der 
abgedruckten Zahlkarte. 


Lieferumfang: 
O umfangreiches deutsches Handbuch 
© 3rr-Diskette 

© Beispieldiskette 


Markt&echnik 


Zeitschriften - Bücher 
Software - Schulung 


Bestellungen im Ausland bitte an: SCHWEIZ: Markt&Technik Vertriebs AG, Kollerstrosse 3, CH-6300 Zug, Telefon (042) 415656 - ÖSTERREICH: Rudolf lechner & Sohn, 


Heizwerkstraße 10, A-1232 Wien, Telefon (0222) 677526 - Ueberreuter Media Verlogsges. mbH (Großhandel), Alser Straße 24, A-IOP] Wien, Telefon (0222) 48 1538-0. 


freezter und gespeicherter Form 
wesentlich kürzer. 

Der vierte Menüpunkt speichert ein 
eingefrorenes Programm nicht auf 
Diskette oder Kassette, sondern auf 
einer RAM-Disk. Auf der Freezerplatine 
sind zu diesem Zweck acht Sockel für 
RAM-Chips freigelassen, mit denen der 
Freezer in Schritten von 64 KByte auf 
256 KByte aufgerüstet werden kann. Mit 
64 KByte RAM auf der Platine hat man 
alsoden Speicher eines 130 XE zur Ver- 
fügung. Nach der Anleitung ist man 
damit jedoch nicht ganz 130-XE- 
kompatibel. Im 130 XE werden die 
zusätzlichen 64 KByte RAM in vier 
16-KByte-Bänken in den Speicher ein- 
geblendet. Der XE läßtsich nun so pro- 
grammieren, daß der Mikroprozessor 
und der Bildschirmprozessor auf 
unterschiedliche Seiten zugreifen 
können. Falls ein Programm diese 
Betriebsart ausnutzt, wird es nicht 
ohne weiteres mit der RAM-Erweite- 
rung des Turbo-Freezers XL zusam- 
menarbeiten. Zum einen gibt es 
jedoch bisher kein kommerzielles Pro- 
gramm mit dieser Betriebsart. Zum 
anderen ist in der Anleitung sehr 
genau beschrieben, wie man ein 
Kabel im Inneren des Computerssoan 
den Erweiterungsbus anlötet, daß das 
Umschaltsignal zur Verfügung steht. 
Doch zurück zum Freezer-Menü. 
»Save Ramdisk« speichert wie »Save 
extern« den Computerspeicher mit 
allen Registerwerten. Das Gegen- 
stück dazu ist der Menüpunkt »Exec 
Ramdisk«, der aus der RAM-Disk ein 
Programm lädt, auftaut und startet. 


Register eingefroren 


Der sechste und letzte Menüpunkt 
läßt ahnen, welches Potential in dem 
Turbo-Freezer XL steckt. Wählt man 
den Menüpunkt »DOS/Debugger« an, 
hat man einen kompletten Monitor 
sowie ein komplettes DOS zur Verfü- 
gung. Mit dem Monitor lassen sich 
dann endlich dietiefsten Geheimnisse 
von Profiprogrammierern lüften. Für 
Leute, die beim Anblick von Program- 
men wie »Rescue on Fractalus« in 
andächtiges Staunen verfallen und 
bei denen sich im Kopf riesengroße, 
auf den Kopf gestellte Fragezeichen 
bilden, wenn sie gefragt werden, wie 
man so etwas programmiert, ist diese 
Funktion ideal. Ohne Probleme kann 
man nun ein in voller Aktion angehal- 
tenes Programm untersuchen. Zu- 
sätzlich schaltet der Freezer automa- 
tisch das RAM unter dem Betriebs- 
system ein, damit man sich die dort 
stehenden Programme anschauen 
kann. Weiterhin ist der Freezer so kon- 
struiert, daß das eigentliche Freezer- 


Der Freezer Prototyp. Die Serienmodelle werden mit Lötstopmaske geliefert 


Programm, sozusagen das Betriebs- 
system des Freezers, nicht sichtbar ist 
und auch keinen Speicherplatz im 
Computer belegt. Ein Programm be- 
merkt also niemals den Freezer und 
hat somit auch keine Möglichkeit, 
Gegenmaßnahmen einzuleiten. Dem 
Freezer und dem Monitor istjedes Pro- 
gramm schutzlos ausgeliefert. Nach 
Belieben läßt sich ein Programm 
disassemblieren, verändern oder ent- 
schützen. Für eigene Programme ist 
der Monitor das ultimative Entwick- 
lungswerkzeug, da sich jedes Pro- 
gramm sofort beim Auftauchen eines 
Fehlers im Fehlerzustand unter- 
suchen läßt. 

Das eingebaute DOS stellt einen 
weiteren Knüller des Freezers dar. Ein 
Knopfdruck genügt, und es läßt sich 
mal eben schnell eine Diskette forma- 
tieren. Dabei gibt es jedoch einen klei- 
nen negativen Kritikpunkt. Jedes nor- 
male DOS schreibt nach dem Forma- 
tieren einer Diskette auf die ersten drei 
Sektoren ein Programm, das auf dem 
Bildschirm »Boot Error« ausgibt, wenn 
von der Diskette gebootet wird und 
sich kein DOS darauf befindet. Der 
Freezer tut dies nicht, weshalb sich 
der Computer aufhängt, wenn man 
versuch, von einer Freezer- 
formatierten Diskette zu booten. Wei- 
tere Folgen hat dies keine, es ist halt 
nur nicht besonders schön. 

Selbstverständlich werden Disket- 
ten in Single Density (90 KByte), 
Medium Density (130 KByte) und Dou- 
ble Density (180 KByte) unterstützt. 
Letztere allerdings nur mit einem auf- 
gerüsteten Laufwerk. Neben den 
Befehlen zum Formatieren von Disket- 
ten stehen Kommandos zum Anzei- 
gen des Inhaltsverzeichnisses einer 


Diskette, zum Schützen, Entschützen 
und Umbennen von Files sowie zum 
Laden und Speichern von Daten zur 
Verfügung. 

Auf der Freezer-Platine ist neben 
dem EPROM mit der Betriebssoftware 
des Freezers noch ein weiterer Sockel 
frei, Gleichzeitig befindet sich auf der 
Platine über dem roten Knopf ein 
Schiebeschalter. Blättert man in der 
‚Anleitung, so wird der Sinn des freien 
Sockels schnell klar: Hier läßt sich ein 
EPROM mit dem Betriebssystem der 
alten 400er/800er Computer von Atari 
einsetzen. Es gibt einige Programme, 
die mit dem Betriebssystem derneuen 
Computer nicht funktionieren. Da 
kommt das alte Betriebssystem im 
ROM sehr recht, denn damit hat man 
quasi einen alten Atari Computer und 
ab sofort keine Probleme mehr mit 
inkompatibler Software. 

Bei aller Euphorie hat der Freezer 
jedoch einen Nachteil: Er läßt sich nur 
am Atari 800XL betreiben, die Besitzer 
eines 130XE müssen vorerst noch auf 
eine Adapterplatine warten. 

Das alte Betriebssystem sowie die 
RAM-Disk in beliebiger Ausbaustufe 
kann gleich mitgeordert werden. Dazu 
schreibt man an: 

Gerald Engl 

Kennwort: Turbo-Freezer XL 
Bunsenstraße 13 

8000 München 83 

Der Freezer kostet 149 Mark, das 
alte Betriebssystem zusätzlich 10 
Mark und jede 64-KByte-Stufe der 
RAM-Disk 20 Mark. Wenn man sich 
anschaut, was der Freezer alles lei- 
stet, und dann seinen Preis mit dem 
von Konkurrenzprodukten vergleicht, 
kann man nur sagen, daß der Freezer 
ein echter Hammer ist. (MM) 
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Ein Laufwerk wird fröhlich 


Schneller, besser, komfortabler. 
Damit läßt sich kurz beschrei- 
ben, was das »Happy Drive 
Enhancement« aus der 1050- 
Diskettenstation herausholt. 


as wäre ein Computer wie 
der Atari XL ohne eine Dis- 
kettenstation? Doch Disket- 


ten-Operationen bezahlt der Anwen- 
der oft mit langen Wartezeiten und 
umständlichem Kopierschutz. Diese 
Tatsache ließ die amerikanische Firma 
Happy Computers schon im Jahre 
1982 auf den Gedanken kommen, ein 
Hardware-Utility auf den Markt zu 
bringen, mit der diese Nachteile für 
den Benutzer aufgehoben werden. 
Die Entwickler nannten ihre Erweite- 
rung »Happy Drive Enhancement«. 
Diese Idee war von so durchschlagen- 
dem Erfolg, daß sie in Deutschland 
einige Nachahmer wie »Speedy 1050« 
oder »Turbo-Modul« nach sich zog. 
Doch an das Original reichten diese 
Nachfolger nicht heran. Ein Grund für 
uns, den »Ur-Speeder« etwas genauer 
anzusehen. 


Kurze Ladezeiten 


Das Happy Drive Enhancement, 
das den Platz des ROM und den des 
Prozessors in der Diskettenstation ein- 
nimmt, versetzt seinen Besitzer in die 
Lage, den Controller direkt zu pro- 
grammieren und damit die Disketten- 
station vielseitiger zu handhaben, als 
es normalerweise möglich ist. 

Auf der aufzusteckenden Platine 
sind neben ein paar Logikbausteinen 
ein 8-KByte-EPROM, ein 8-KByte- 
RAM sowie eine 6502 CPU unterge- 
bracht - ein vollständiger kleiner Com- 
puter also. In dem RAM werden nicht 
nur die Übergabeparameter des Com- 
Puters gespeichert, sondern es dient 
auch dazu, immer einen Track voll- 
ständig einzulesen. Dadurch wird eine 
geringere Belastung der Mechanik 
und vor allem eine erhebliche 
Geschwindigkeitssteigerung erreicht, 
da nachfolgende Sektoren schon zur 
Verfügung stehen und nicht mehr 
extra gelesen werden müssen. 

Ein vom Anwender benutztes nor- 
males DOS merkt nichts von diesen 
Vorgängen, dasie alle von dem Happy 
Drive Enhancement gesteuert wer- 
den. Weiterhin ist es möglich, eigene 
Programme im Happy Drive Enhance- 
ment laufen zu lassen und so die Dis- 
kettenstation fest im Griff zu haben. 


Eine kleine Platine im Laufwerk macht's möglich 


Der Benutzer kann seine Disketten 
mit dem Enhancement für die Atari 
1050 auf Double-Density formatieren, 
was ihm dann 176 KByte auf jeder Dis- 
kettenseite zur Verfügung stellt. Den 
Besitzern eines alten Laufwerks, der 
‚Atari 810, steht die doppelte Schreib- 
dichte nicht zur Verfügung, da der dort 
eingebaute Controller dieses Format 
nicht erzeugen und verwalten kann. 
Wegen der unterschiedlichen 
Controller-Typen (bei der Atari 810 ist 
es der 1771, bei der Atari 1050 der 
2793, beide von Western Digital) gibt 
es zwei verschiedene Happy Drive 
Enhancements, die Software ist 
jedoch identisch. 

Ein weiterer Vorteil des Speeders: 
Der Benutzer ist nicht mehr auf die 
Übertragungsrate von 19200 Baud 
(übertragene Bits pro Sekunde) zwi- 
schen Computer und Diskettenstation 
angewiesen, sondern kann mit be- 
stimmten Software-Einstellungen bis 
zu 70000 Baud erreichen. Damit wird 
aus dem monotonen Piep-Piep beim 
Laden und Speichern ein hohes 
Pfeifen. 

Verzichtet man hierauf, kann man 
selbst in der normalen Betriebsart die 
Geschwindigkeit steigern, indem man 
ein DOS erzeugt, bei dem Verify-Write 
ausgeschaltet ist (mit POKE 1913,80). 
Das Happy Drive Enhancement führt 
diese Kontrolle schon selbständig 
durch. 

Zusätzlich zu der Platine werden 
das »Happy Warp Speed Menü« und 
das »Warp Speed Dos« mitgeliefert, 


das mit dem Atari Dos 2.0 zusammen- 
arbeitet. 

Das Warp-Speed-Menü erscheint 
mittlerweile in der Version 7.1, die dem 
Benutzer neun Menüpunkte zur Verfü- 
gung stellt: 

Drive Options: 

Hier kann der Anwender 

- sein Laufwerk wieder zu einem 
gewöhnlichen Atari-Diskettenlaufwerk 
ohne Beschleuniger machen, damit 
manche heiklen Original-Programme 
laufen. Sämtliche Funktionen des 
Happy Drive Enhancement sind dann 
abgeschaltet. Nur nach einem Aus- 
und wieder Anschalten wird das Atari- 
Laufwerk wieder »fröhlich«. 

- das Happy Drive Enhancement 
initialisieren, um vorher eingestelle 
Optionen wieder aufzuheben. 

- den »Drive-Select« außer Kraft 
setzen und Laufwerk 1 beispielsweise 
zu Laufwerk 2 machen. 

- die Zeit bestimmen, in der das Lauf- 
werk nach dem letzten Zugriff noch 
laufen soll, um bei einem eventuell 
erneuten Zugriff die Anlaufzeit des 
Motors zu sparen. 

- auf schnelles Schreiben schalten. 
- den US. Emulator installieren. 
Kopierprogramme beispielsweise, die 
diesen ansprechen, schreiben und 
lesen dann um ein Vielfaches schnel- 
ler als ohne den Emulator. 

- Laufwerk auf Write-Enable stellen. 
- Laufwerk auf Write-Protect stellen. 
Diagnostic: 

Hier wird das »Happy Enhancement 
Diagnostic«-Programm nachgeladen. 
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Es folgt eine Auswahl von Test- 
Funktionen: RAM und ROM der Erwei- 
terungen werden genauso überprüft 
wie Übertragungsrate, Anzahl der 
Umdrehungen pro Minute, Kopfposi- 
tionierung, Schreib- und Lesesicher- 
heit und die zusätzliche Hardware- 
Option. 

Sector Copier: 

Ein Diskkopierer wird nachgeladen, 
mit dem Atari-Disketten auf sehr kom- 
fortable Art und Weise dupliziert wer- 
den können. So erlaubt es die Erweite- 
rung hier, Start- und Endsektor des zu 
kopierenden Diskettenbereichs einzu- 
geben. 

Happy Backup: 

Der Diskettenkopierer ist das Herz- 
stück dieses Menüs. Dieses nachzu- 
ladende Programm kann allein oder 
mit Hilfe sogenannter »PDP-Files«fast 
alle kopiergeschützten Single- 
Density-Disketten duplizieren. PDP- 
kopierte Disketten laufen dann nur mit 
eingebauter Happy-Erweiterung. 
Happy Compacter: 

Nach dem Nachladen stößt der 
Anwender wieder in ein Menü, in dem 
es ihm möglich ist, mehrere Boot- 
Disketten auf einer zu sammeln. 
Tracks, die ein Programm nicht nutzt, 
werden für ein anderes freigehalten. 


Multi Drive: 

Bei diesem Kopierprogramm wer- 
den zwei Happy-Enhancement- 
Laufwerke benötigt. Dadurch entfällt 
das nervende dreimalige Auswech- 
seln von Quell- und Zieldisketten. 
Enable Tracer: 

Der Tracer wird hier aktiviert. Jeden 
weiteren Track, der beim Diskettenzu- 
griff angesprochen wird, merkt sich 
das Happy Drive Enhancement, und 
dieser kann nach erneutem Laden des 
»Happy Warp Speed Menü« abgefragt 
werden. Die Diskettenstation darf zwi- 
schendurch nicht ausgeschaltet wer- 
den, da sonst kein Tracen möglich 
wäre. 

Display Trace: 

Nur möglich, wenn vorher die Funk- 
tion »Enable Tracer«angewählt wurde. 
Es werden die Tracks 0 bis 39 ange- 
zeigt, die beim Booten benutzt wur- 
den. Da beim Booten immer der Sek- 
tor 1 (Track 0) gelesen wird, und das 
Happy Warp Speed Menü nur Track O 
benutzt, ist das Aufzählen der gelese- 
nen Tracks dem der vorherigen Boot- 
Diskette gleich. Deshalb ist das Happy 
Warp Speed Menü als Boot-Pro- 
gramm realisiert, als File könnte es 
auch noch andere Tracks belegen und 
so das Ergebnis verfälschen. 


Insgesamt hinterläßt diese erste 
und vielseitigste Erweiterung einen 


hervorragenden Eindruck. Denn 
obwohl es andere und kostengünsti- 
gere Zusätze ähnlicher Art gibt, ist 
Happy Drive Enhancement das aus- 
gereifteste Produkt. Außerdem unter- 
stützen einige amerikanische und 
deutsche Softwarehersteller diesen 
Speeder mit ihren Programmen. 

Mit diesen Programmen ist es mög- 
lich, sich ein völlig eigenes Format mit 
eigenem Kopierschutz zu erstellen. 
Mit der Atari 1050 kann man dann zum 
Beispiel ein Format in Medium- 
Density erzeugen, das jede 1050 ohne 
Probleme liest. Aber noch nicht ein- 
mal das Happy Drive könnte diese Dis- 
kette kopieren. 

Das Happy-Drive-Enhancement ist 
für 14995 Dollar plus 10 Dollar Ver- 
sandkosten bei der Firma Happy- 
Computers, PO. Box 1268, Morgan 
Hill, CA 95037 erhältlich. 

Wer sich vor einer Bestellung in den 
USA scheut, kann sich an einen Atari- 
Händler wenden, muß dann aber 
mehr Geld ausgeben. Wie Sie eine 
Bestellung direkt in die USA richten, 
haben wir ausführlich in der Happy- 
Computer Ausgabe 7/87 beschrieben. 

(Kjersten Waldheim/jg) 


ST PAINT für die ATARI ST 


Das ideale Mal- und Zeichenprogramm 
für Ihren ATARI ST. 


Hardware-Anforderung: 

Atari ST mit mindestens 512 Kbyte RAM, Monochrom-Monitor 
Atari SM 124, einseltiges oder zweiseitiges Diskettenloufwerk, 
Matrixdrucker. 


Bestell-Nr. 51633 


Für nur DM 99, 


* inkl. MwSt. Unverbindliche Preisempfehlung 


‚roamm für den ambitio- 


ST PAINT ist ein pixelorientiertes Grafik-Pr 
nierten Computerzeichner. Die Vieltolt der Zeichenfunktionen und 
‚die bequeme Bedienung mit Maus und Tastatur über die sinnvoll 
aufgebaute GEM-Benutzeroberfläche erlauben auch dem ungeüb- 
Ba Zoichrer. piolesstonelle Gebrouche-Grofiken auf dem’ Aka ST 
und einem leistungsfähigen Matrixdrucker zu produzieren. 


Leistungsmerkmale: 

© komfortable GEM-Benutzeroberfläche mit Pulldown-Menüs, 
Diologboxen, GEM Fenster und Funktionstostenleiste, 

© Inden und Speichem im Doodle, Neochrom- und Degas-format, 
eigenes Format für »BlG«- und »FAle-Bilder 


@ einiache Einbindung von Texten in verschiedenen Gräßen und 
Textoftibuten, gleichzeitige Darstellung mehrerer lodborer 
GEM-Fonts. 


@ editierbare Druckertreiber zur Ansteverung vieler Motrixdrucker 
© fertige Treiber für Epson-FX 80 und Kompatible sowie NEC P6 auf 
der Programmdiskette und vieles mehr. 


Dieses Morkt&Technik-Softworeprodukt erhalten Sie in 
den fochabieilungen der Warenhäuser, im Versondhen- 
del, in Computer-tachgeschöften oder im Buchhandel. 
Wenn Sie direkt beim Verlog bestellen wollen: gegen 
Vorauskasse durch Veruchnungsscheck oder mit der 
obgedruckten Zohlkone, 
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Eebwenie 
0 
Spitzen-Spiele 
im Test 
Stories 
Trends 
Spiele-Tips 


| 


” 


A chtung Spiele-Fans: Hier kommen insgesamt mehr als dreihundert 
Seiten voll mit Spiele-Tests, Marktübersichten, Grafik- und Musikpro- 
grammen. Zusammen ergeben Sie ein Super-Nachschlagewerk: Geschicklich- 
keits-Spiele, Acion-Spiele, Strategiespiele, Sport-Spiele ... 

vom C64 bis zum PC. 


Der XL treibt’s 
ganz schön bunt 


Mit ein bißchen Computer- 
kenntnis, ein paar Assembler- 
Zeilen und einer guten Idee las- 
sen sich aus den XL/XE- 
Computern viele Farben gleich- 
zeitig herauskitzeln. 


ine der Stärken des Atari XL- 

Computers ist seine Farbenviel- 

falt. Er kann 16 Farben in 8 ver- 
schiedenen Helligkeiten darstellen, 
was zusammen 128 verschiedene Far- 
ben ergibt. Angesichts dieser Farben- 
vielfalt ist man begeistert, doch nach 
kurzer Zeit kommt die Ernüchterung: 
128 Farbschattierungen stehen zwar 
zur Auswahl, in den einzelnen Grafik- 
stufen sind aber nur maximal 4, in den 
Textstufen maximal 5 Farben gleich- 
zeitig darstellbar. Es gibt zwar die 
Möglichkeit, über einen Display-List- 
Interrupt in jeder Bildschirmzeile die 
Farben umzuschalten. In vertikaler 
Richtung sind so beliebig viele Farben 
darstellbar, trotzdem hat man in einer 
horizontalen Zeile immer noch nur 
4 beziehungsweise 5 Farben zur Ver- 
fügung. 

Beim Atari gibt es außerdem 3 wei- 
tere Grafikstufen, in denen ein Bild- 
punkt eine Zeile hoch und vier Punkte 
breit ist. In der Grafikstufe 9 sind 16 
Graustufen einer Farbe darstellbar 
und in Grafikstufe 11 sind es 16 Farben 
einer Helligkeit. BeiGrafikstufe 10 sind 
7 Farben frei definierbar. 

Um 256 Farben gleichzeitig aufdem 
Bildschirm darstellen zu können, ist 
folgende Überlegung notwendig: Das 
Fernseh- oder Monitorbild wird 50mal 
in der Sekunde neu gezeichnet. Wenn 
jetzt zwischen einem Bild mit Grau- 
werten und einem Bild mit Farbwerten 
im Takt des Bildschirmaufbaus hin- 
und hergeschaltet wird, kann das 
Auge des Betrachters die Bilder nicht 
mehr auseinanderhalten und mischt 
die Grau- und die Farbwerte zu einer 
Farbe zusammen. Auf diese Weise 
lassen sich aus 16 Grauwerten und 16 
Farbwerten 256 Farben zurechtmi- 
schen. 

Das Verfahren hat jedoch einige 
Nachteile, die hier nicht verschwiegen 
werden sollen. Zum ersten tritt durch 
das rasche Hin- und Herschalten zwi- 
schen den beiden Bildern ein unange- 
nehmer Nebeneffekt auf: Das Bild 
flackert sehr stark. Dieser Effekt trat 


auch bei einigen alten Adventurespie- 
len von Scott Adams auf. Nach den 
ersten drei Spielen sah er jedoch ein, 
daß diese Art der Bilderzeugung viel 
zu anstrengend für den Betrachter ist. 
Ab dem vierten Spiel verwendete er 
dann wieder die normale Art der Bil- 
derzeugung. Ohne Bedeutung ist das 
Flackern jedoch, wenn man Bilder 
zeichnet und diese dann vom Bild- 
schirm abfotografiert (siehe Bilder in 
diesem Beitrag und in der Inhaltsan- 
gabe dieser Ausgabe). Zum zweiten 
lassen sich bei diesem Verfahren, 
bedingt durch die Auflösung der bei- 
den verwendeten Grafikstufen, hori- 
zontal nur 80 Punkte darstellen. Und 
zum dritten muß man einen nicht uner- 
heblichen programmtechnischen Auf- 
wand betreiben, um das Bild darzu- 
stellen. Im Computer muß nämlich ein 
Programm fest installiert sein, das die 


Bilder umschaltet. Zusätzlich nehmen 
diese Programmroutinen sowie die 
beiden Bilder Speicherplatz weg. 

Dem Flackern läßt sich mit einem 
Kniff beikommen: Wie bei einem Fern- 
sehbild verschiebt man jedes zweite 
übertragene Bild gegenüber dem 
ersten um eine Zeile. In jeder geraden 
Zeile werden dann die Grauwerte dar- 
gestellt und in jeder ungeraden Zeile 
die Farbwerte. 

Damit man ein 256-Farben-Bild aus- 
geben kann, braucht man ein Pro- 
gramm, daß die Bilder hin- und her- 
schaltet, sowie zwischen Grau- und 
Farbwerten wechselt. Zusätzlich 
braucht man zwei Display Lists, die 
das Farbbild gegenüber dem Hellig- 
keitsbild um eine Zeile verschieben. 
Das Listing »COL256.BIN« stellt die- 
ses Programm dar. Das Programm 
steht im Speicher ab Adresse 1536 


Pe 
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($600) und belegt 104 Byte. Es ist so 
geschrieben, daß es unter Turbo- 
Basic mit dem Befehl »BLOAD 
”D:COL256.BIN ” «geladen wird. Das 
Programm »FARB256« enthält alle 
Programmschritte, die nötig sind, um 
einen 256-Farben-Bildschirm zu 
erzeugen. Am besten speichern Sie 
das Programm mit »LIST "D:FARB 
256.TXT ”« auf Ihre Diskette, damit Sie 
es mit dem Befehl »ENTER« in eigene 
Programme einbinden können. Das 
Programm springt man unter Turbo- 
Basic einfach mit »EXEC FARB256_ 
INIT« an, worauf die Display-Lists 
installiert und das COL256.BIN- 
Programm geladen werden. 

Dann schaltet man die Grafik mit fol- 
‚gendem Befehl an: 
D=USR($0600,GTIAMode) 

Für die Variable »D« läßt sich jede 
andere im Programm nicht benützte 
Variable einsetzen. Sie wird von der 
Funktion zwar nicht verwendet, muß 
aber trotzdem angegeben werden, da 
der»USR«-Befehl eine Variable erwar- 
tet. Solange keine Player-Missile- 
Grafik verwendet wird, setzt man für 
GTIAMode normalerweise eine 64ein, 
was Grafikmode 9 entspricht. Anson- 
sten schauen Sie bitte im Beitrag über 
die Hardwareregister der Atari 8-Bit- 
Computer unter dem Register 


no. 


Fes 
color 


Mit »Paint256« erzeugtes, digitalisiertes Bild 


»PRIOR« nach, welche Werte Sie ein- 
setzen müssen. Nachdem die Grafik 
nun aktiviert ist, muß der Bildschirm- 
speicher gegen unbeabsichtigtes 
Überschreiben durch ein Basic- 
Programm geschützt werden. Dazu 
verwendet man folgende Befehls- 
folge: 

POKE 106,120 


Will man jetzt Grafiken zeichnen, so 
muß die gleiche Grafik in beiden Bil- 
dern gezeichnet werden, einmal mit 
dem Helligkeitsbild und das zweite 
Mal mit dem Farbbild. Dazu legt man 
erst einmal die Farbe und die Hellig- 
keit fest. So ergibt: 

COL = 3 
LM =6 


NET- 


Die residente RAM-Disk zur © 
der Zugriffszeit unter GEM-Desktop 


Die NETRAM-Disk ist eine Utility zur Optimierung der 

Speichermedien auf dem ATARI ST. Durch die Benutzung 
dieses Programms wird Ihr System um eine Diskettensta- 
fion erweitert. Sie besitzt alle Funktionen einer normalen 


Floppystation, befindet sich im Houptspeicher des 


Rechners und st voll im GEM-Desktop eingebunden. 
Nach einem Reset des Rechners bleiben die Daten auf 


der RAM-Disk vollständig erhalten. 
Die wesentlich kürzeren 
lichen Ihnen ein effi 


Verwendung des Druckerspoolers ermöglicht Ihnen, 


während des Ausdrucks mit Ihrem Programm weiter- 


arbeiten zu können. 


NET-RAM-Disk ist lauffähig mit allen Programmen, die 


den Bildschirmspeicher nicht verändern. 


|Morkt&Technik-Produkte erhalten Sie in den Fochabteilungen 


der Warenhäuser, im Versandhandel, in Computer-Fochgeschöften 


‚oder bei Ihrem Buchhändler. 


703213 


iten ermög- 
Arbeiten mit dem 
ATARI ST. Die RAM-Disk belegt einen freien Teil des 
‚Arbeitsspeichers. Das Fehlen einer laufwerkmechanik 
steigert die Verarbeitungsgeschwindigkeit erheblich. Die 


Disk für ATARIST 


mmeie 


| Weser 
| MaiNenge 


[easen _ Tam 
Tra= 


imierung 
r den ATARı ST. 


» Hardware-Anforderungen: 
®@ Computer der ST-Familie 
© mindestens ein Floppylaufwerk 


u 
| Bestell-Nr. 51448 (3)h’-Diskette) 
NETRRATIZ Für nur DM 49 sit 45,-1ö5 382,20° 
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ein dunkles Rot. Dann teilt man dem 
Computer über die Speicherstelle 88 
mit, wo sein Bildschirmspeicher steht. 
Alle Grafikbefehle beziehen sich jetzt 
auf diesen Bildschirmspeicher. Als 
erstes zeichnet man das Helligkeits- 
bild. 

DPOKE 88,AH 

POKE 87,9 

Anschließend setzt man den Hellig- 
keitswert und führt den Grafikbefehl 
aus. 

COLOR LUM 
PLOT 0,0:DRAWTO 79,191 

Dann setzt man den Punkt. Die glei- 
che Prozedur wiederholt man mit dem 
Farbwert. 

DPOKE 88, AF 
COLOR COL 
PLOT 0,0:DRAWTO 79,191 

‚Auf diese Weise lassen sich in jedes 
Programm Grafiken mit 256. Farben 
einbauen. Da unter Basic mit instal- 
lierter Grafik nur noch rund 16 KByte 
Speicher zur Verfügung stehen, sollte 
man Programme unbedingt compilie- 
ren. Dadurch gewinnt man zusätzliche 
4 KByte Speicher. Bevor man in ir- 
gendeiner Weise den seriellen Port 
benutzt, solite man die Grafik wieder 
abschalten. Dies geschieht mit dem 
Befehl: 

D=USR($0600,0) 

Ansonsten hat der Computer nicht 
mehr genügend Rechenzeit zur Verfü- 
gung und hängt sich auf. Als Beispiel 
haben wir auf Seite 35 ein Programm 
abgedruckt, das alle 256 Farben 
gleichzeitig auf den Bildschirm bringt. 
Davon läßt sich auch sehr schön der 
Aufbau eines 256-Farben-Programms 
zeigen. 


Nach der Arbeit 
kommt das 


Vergnügen 


Zusätzlich zu den Routinen, die die 
256 Farben ermöglichen, haben wir 
zwei Anwenderprogramme abge- 
druckt, die diese Routinen benutzen. 
Zum einen haben wir ein Malpro- 
gramm beigefügt. Es ist in Turbo-Basic 
geschrieben und benötigt die beiden 
Progamme COL256.BIN sowie 
»DLST.256«. Diese Programme müs- 
sen sich zusammen mit »PAINT256« 
auf der gleichen Diskette befinden. 

PAINT258 stellt verschiedene Funk- 
tionen zur Verfügung. Diese präsen- 
tieren sich nach dem Starten des Pro- 
gramms in der obersten Bildschirm- 
zeile. Darunter folgen zwei schmale 
Zeilen mit 16 Farb- und 16 Helligkeits- 
werten, und unter diesen befindetssich 
die Zeichenfläche, auf der horizontal 


80 und vertikal 192 Punkte darstellbar 
sind. Mit dem Pfeil, den man miteinem 
Joystick in Port 1 ‘des Computers 
bewegt, werden dann die einzelnen 
Funktionen ausgewählt. Um eine 
Farbe festzulegen, fährt man mit dem 
Pfeil auf den entsprechenden Farb- 
oder Helligkeitsbalken und drückt den 
Feuerknopf. Zusätzlich läßt sich die 
Farbe mit den Pfeiltasten auf der 
Tastatur bestimmen. Die Aufwärts-/ 
Abwärts-Pfeile verändern die Farbe 
und die Links-/Rechts-Pfeile bestim- 
men die Helligkeit einer Farbe. Die 
Nummer der ausgewählten Farbe wird 
in der zweiten Menüzeile über der Zei- 
chenfläche bei»Color No.:«angezeigt. 


Kunterbuntes Mandelbrot mit »Apfel256« 


Mit dem Pfeil wählt man auch die 
einzelnen Zeichenfunktionen aus. 
Eine gewählte Funktion wird dann voll- 
ständig invers dargestellt. Folgende 
Funktionen stehen zur Verfügung, 
wobei sich fast alle Funktionen mit 
<ESC> abbrechen lassen, wenn sie 
einmal versehentlich angewählt wur- 
den. 

Pit (Plot): Wenn der Knopf gedrückt 
ist, setzt das Programm an der ent- 
sprechenden Stelle auf dem Bild- 
schirm einen Punkt. 

Lne (Line) zieht eine Linie von dem 
Punkt, an dem das erstemal der Knopf 
betätigt wurde, zu dem Punkt des 
zweiten Knopfdrucks. 

Box (Box): Der erste Knopfdruck 
legt den Eckpunkt eines Kastens fest. 
Wird dann der Pfeil bewegt, so wird 
von dem Eckpunkt zu der neuen Pfeil- 
position ein Kasten gezogen. Beim 
zweiten Knopfdruck wird der Kasten 
gezeichnet. 

Zre (Circle): Beim ersten Knopf- 
druck wird der Mittelpunkt eines Krei- 
ses bestimmt. Beim zweiten wird ein 


Kreis mit dem Radius vom Abstand 
des Mittelpunkts zur Position des 
Pfeils gezeichnet. 

Txt (Text): Nach dem der Knopf betä- 
tigt wurde, läßt sich ein Text mit maxi- 
mal 10 Zeichen Länge eingeben. Mit 
<BACKSPACE> wird eine fehler- 
hafte Eingabe korrigiert. <ESC> 
löscht den gesamten Text. Mit 
<RETURN> wird der Text übernom- 
men und mit dem Joystick positioniert. 
Durch Knopfdruck wird der Textin das 
Bild eingefügt. 

Sci (Scale): Mit dieser Funktion wird 
der Ausschnitt eines Bildes vergrößert 
oder verkleinert. Dabei dürfen sich die 
Bereiche auch überlappen. Da der 


Computer sehr viel Rechenzeit ver- 
braucht, wenn er einen Bildschir- 
mausschnitt transformiert, wird zwi- 
schendurch der Bildschirm ausge- 
schaltet. Durch diesen Trick hat der 
Computer mehr Zeit zur Verfügung. 

Fit (Fill): Eine schwarze Fläche wird 
mit der gewählten Farbe ausgefüllt. 

Cut (Cut): Diese Funktion schneidet 
einen rechteckigen Ausschnitt aus 
und fügt ihn an anderer Stelle wieder 
ein. 

Ray (Rays): Ausgehend von einem 
gemeinsamen Punkt werden Linien 
gezogen. Indem man im Menü eine 
andere Funktion auswählt, beendet 
man diese Funktion. 

Cin (continue Lines): Es werden 
fortlaufende Linien gezogen. Der End- 
punkt einer Linie ist gleichzeitig der 
Startpunkt der nächsten Linie. Auch 
diese Funktion wird erst durch eine 
andere Funktion beendet. 

Ers (Erase): Der Pfeil verwandelt 
sich in ein schraffiertes Zeichen, das 
eine Art Radiergummi darstellt. Es 
löscht Flächen aus einem Bild. 
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verwaltung. 


Einfacher Datenbank-Aufbau 
Mit den leichtverständlichen Pull-down- 
Menüs und Kontrollfeldern legen Sie in Minu- 
ten eine komplette Datenbank an. Sie können 
eine bereits festgelegte Struktur jederzeit 
ändern, ohne Ihre Daten zu zestören. 


Verwaltung der Daten 


Superbose zeigt Ihre Daten auf verschiedene 
Arten an, beispielsweise als Tabelle oder als 
Formular. Sind Index und Felder selektiert, 
können Sie Ihre Daten wie bei einem Video- 
recorder anzeigen lassen. Schneller Vorlauf, 
Rücklauf, Pause und Stop - ein Recorder ist 
nicht einfacher zu bedienen. Ein einzigartiges 
Filtersystem wählt beliebige Datenkategorien 
aus, mit denen Sie dann arbeiten können. 


Die Stärken von Superbase 
Das Festlegen von Übersichten und zusam- 
en angendSAbhicgen ober mehrere Ver: 
knüpfte Dateien sind auch bei verschiedenen 
Sortierkriterien kein Problem. Daten anderer 
Datenbanken oder Anwenderprogramme im 
ASCII-Format lassen sich ebenfalls problem- 
los verarbeiten. Binden Sie Daten in Ihre Text- 


jiot 
Bee rc 
und hpcs und kompatible 


Heizwer 


relationale Datenbank-System 
für den Atari ST 


verarbeitung ein, oder bilden Sie aus verschie- 
denen Doteien eine neve Datenbank! 


Datenbank mit Bildern 


Superbase bietet neben den gängi jen 
Datenbank-Funktionen die Möglichkeit, Bilder 
und Grafiken darzustellen und zu verwalten. 
Einzigortigen Grafik-Datenbanken oder Dio- 
Shows steht also nichts im Wege. 


Wer braucht Superbase? 


Die Anwendungsmöglichkeiten sind nahezu 
unbegrenzt. 


Hier einige Beispiele: 


Geschöftliches Professionelle 
Anwendungen 
logerbestand Design 
Fokturierung Fotografie 
Registratur Journalismus 
Versandlisten Sammlungen 
Verwaltung Forschung 
Adressen ‚Ausbildung 


Markt&dechnik 


Zeitschriften - Bücher 
Software - Schulung 
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Leistungsumfang 

Die Software: © bis zu 16 Millionen 
Datensätze pro Datei @ maximal 999 Indizes 
pro Datei @ Speicherkapazität pro Datei, 
‚Anzahl der geöffneten Dateien, Anzahl der 
Dateien und Anzahl der Felder pro Datensatz: 
abhängig von der Disketten- bzw. Festplatten- 
kapazität. 

Die Daten: © Text, Daten, numerische 
Felder und externe Dateien @ Überprüfun 
bei der Eingabe @ Formelfelder @ Kalender 
der Jahre 1-9999, verschiedene Datums- 
formen @ verschiedene Zahlenformate bei 
13stelliger Genauigkeit @ Datenschutz per 
Paßwort 

Die Ausgaben: © dos Programm 
beherrscht einen flexiblen Etikettendruck und 
produziert übersichtliche Listen mit dem 
Reportgenerator ® bis zu 255 Spalten 

© mit Titel, Datum und Seitenzahl © Daten- 
satz-Zähler, Durchschnitt, Zwischen- und End- 
ergebnis @ Ausgabe von mehreren Dateien 
auf Bildschirm, Drucker, Diskette oder neuer 
Datei @ mehrspaltiger Etikettendruck mit 
variablem Format @ Speicherung der Aus- 
gabe- und Abfrage-Formate zur späteren Ver- 
wendung ® vielfältige Sortierkriterien 


Hardware-Anforderung 


© Atari ST 512 Kbyte @ 3“.Disketten- 
laufwerk @ 80-Zeichen-Monitor 
Lieferumfang: © 312”Diskette ®@ Hand- 
buch deutsch 


Best.-Nr. 51641 


DM 249, «199.15 2400.) 


" inkl. MwSt. Unverbindliche Preisempfehlung 


Mandelbrot-Ausschnitte 
} Realteil Imaginärteil Seitenlänge Ausschnitt 
2 -1.25 2.5 Gesamtansicht 
-0.225 -1.125 0.25 Zweig 
-0.74591 0.11196 1.43E-3 Spirale 
-0.1765625 -1.0484375 0.03125 kleines Mandelbrot 


Dsk (Disk): Es erscheint ein neues 
Menü, über das verschiedene Disket- 
tenfunktionen ausgeführt werden: 

- Save (Save): Das Bild wird auf der 
Diskette gespeichert, wobei ein Bild 
123 Sektoren belegt. 

-Load (Load): Sämtliche Files mit 
dem Zusatz ».PIC« werden in der 
obersten Zeile angezeigt. Ein Knopf- 
druck lädt das Bild. Indem man den 
Joystick bewegt, wird das nächste 
File angezeigt. 

- Frmt (Format): Formatiert die Dis- 
kette in Laufwerk 1. Dazu muß die 
Taste <Y> gedrückt werden. Alle 
anderen Tasten brechen die Funk- 
tion sofort ab. 

- Dir (Directory): Zeigt sämtliche Files 
mit dem Zusatz ».PIC« an. Durch 
Joystickbewegung wird das nächste 
File aufgeführt, Knopfdruck beendet 
die Funktion. 

-EDir (extended Directory): Dies 
funktioniert wie die Directory- 
Funktion. Im Gegensatz dazu wer- 
den jedoch alle Files ausgegeben. 

- Bye (Bye): Das Programm kehrt wie- 
der ins Hauptmenü zurück. 

-Quit (Quit); Das Programm wird 
beendet, und man befindet sich wie- 
der im Turbo-Basic. 

New (New): Nach Drücken der Taste 

<Y> wird das Bild gelöscht. 


Der Ri n 
ae 
Mandelbrot 


Das zweite Programm berechnet 
die gute alte Mandelbrotmenge, bei 
dieser Version allerdings in 256 Far- 
ben. Das Prinzip der Mandelbrotbe- 
rechnung soll hier nicht weiter erläu- 
tert werden. Gerade in der letzten Zeit 
haben sich wissenschaftliche Maga- 
zine und Computerzeitschriften mit 
Beiträgen über die Mandelbrotmenge 
geradezu überschlagen, so daß die 
Berechnung der Bilder bekannt sein 
sollte. Wer trotzdem wissen möchte, 
wie Mandelbrot funktioniert, und sich 
allgemein für Fractals interessiert, 
sollte sich das Buch »The Beauty of 
Fractals« von H.-O. Pleitgen und P.H. 
Richter anschauen. Es ist zwar in eng- 
lischer Sprache verfaßt, bietet aber 


soviel Stoff zu diesem Thema, daß es 
fast als »Bibel« der Mandelbrotmenge 
und deren Nebenarten bezeichnet 
werden kann. Nebenbei enthält es 
viele phantastische Bilder. Das Buch 
ist im Springer-Verlag Heidelberg 
erschienen und kostet 78 Mark. 

Zurück zum Mandelbrotprogramm. 
Gerade bei Bildern aus der Mandel- 
brotmenge sind viele Farben wichtig, 
da die Bilder sonst einen Großteilihres 
Reizes verlieren. Auch dieses Pro- 
gramm ist in Turbo-Basic geschrieben 
und sollte mit dem Prüfsummer einge- 
geben werden. Nach dem Starten 
meldet sich das Programm mit folgen- 
dem Menü: 

Laden Bild: Das Programm ver- 
langt eine dreistellige Nummer des zu 
ladenden Bildes. Anschließend wird 
das Bild mit dem Dateinamen 
»APFELXXX.PIC« geladen. 

Speicher Bild: Wie bei »Laden 
Bild«, nur daß bei dieser das Bild vom 
Speicher auf Diskette übertragen 
wird. 

Berechne Bild: Nach Eingabe der 
Werte für die untere linke Ecke, der 
Seitenlänge und der Berechnungs- 
tiefe beginnt das Programm einen 
Ausschnitt aus der Mandelbrotmenge 
zu berechnen. Dieser Ausschnitt ist 
wie bei den Originalprogrammen auf 
Großcomputern quadratisch. Die 
Berechnungstiefe sollte größer oder 
gleich 256 sein, dasonst nicht alle dar- 
stellbaren Farben ausgenutzt werden. 

Ausschnitt vom Bild: Diese Funk- 
tion läßt sich nur aufrufen, wenn sich 
ein Bild im Speicher des Computers 
befindet. Das Programm schaltet auf 
das Bild um, und es erscheinen zwei 
Rahmen auf dem Bildschirm, die die 
rechte obere sowie die linke untere 
Ecke eines neu zu berechnenden Bild- 
ausschnitts repräsentieren. Der Aus- 
schnitt wird mit dem Joystick über das 
Bild bewegt. Ein Druck auf den Joy- 
stickknopf verändert die Ausschnitts- 
größe. Bei Druck auf die <START>- 
Taste fragt das Programm nach der 
Rechentiefe. Anschließend wird der 
neue Mandelbrotausschnitt berech- 
net. 

Während die Berechnung des Bil- 
des erfolgt, läßtsich der Bildschirm mit 
der <START>-Taste abschalten. 


Dadurch arbeitet der Computer dop- 


pelt bis dreimal so schnell. Mit der 
<SELECT>-Taste wird der Bild- 
schirm wieder angeschaltet. 

Directory: Das Inhaltsverzeichnis 
des Diskettenlaufwerks wird ange- 
zeigt. 

<SELECT>-Taste: Das berech- 
nete Bild erscheint. Falls kein Bild im 
Speicher ist, bleibt der Bildschirm 
schwarz. 

<START>-Taste: Es wird wieder 
zum Menü zurückgeschaltet. 

Im unteren Bereich des Bildschirms 
werden die Bildparameter desberech- 
neten beziehungsweise geladenen 
Bildes angezeigt. Ein Bild nimmt auf 
der Diskette zwischen 123 und 124 
Sektoren in Anspruch, je nachdem, 
wie viele Stellen die Bildwerte aufwei- 
sen. Damit Sie, ohne viel in der Man- 
delbrotmenge herumzusuchen, Bil- 
der mit dem Programm »APFEL256« 
berechnen können, haben wir für Sie 
Werte interessanter Ausschnitte zu- 
sammengestellt. 

Vielleicht wissen Sie weitere inter- 
essante Anwendungen für den 256- 
Farben-Zusatz. Schreiben Sie uns 
doch Ihre Vorschläge für weitere 
Anwendungen. Wir freuen uns über 
jede Anregung. 

(Stephan Gerle/hf) 


Steckbrief 
Programm: Paint256 
Sprache: Turbo-Basic 
Eingabehilfe: Prüfsummer 
Datenträger: Diskette 

Steckbrief 
Programm: Apfel256 
Sprache: Turbo-Basic 
Eingabehilfe: Prüfsummer 
Datenträger: Diskette 


BBBB:FF FF OB 86 67 96 68 68 <a) 
Q228:68 CI 00 F@ 20 85 DB A? <c9> 
GBIB:FF SD 66 96 A2 @& AM 36 <B2> 
Q@218:49 @7 20 SC E4 A9 57 8D <7D> 
B@20:20 BZ AF 06 SD B1 22 A7 <aB> 
2223:C® SD BE D4 68 A2 Ea AB <sF> 
@B30:62 A9 87 2m SC E& AF 60 <any 
Q238:8D GE D4 68 AS DR 29 7F <19> 
@242:85 D® A2 2® AB 7C AD 66 <9D> 
Q248:26 49 2@ ED 66 26 30 24 <FD> 
@USB:AZ BO AB 78 BE 30 92 8C <79> 
Q@S8:31 ®2 4C 62 E4 48 AS DR <an> 
@860:49 89 85 DB BD BA D4 SD <1B> 
Q@68:1B DE 68 4D BO QM DR 2a <2F> 


Listing. »COL256.BIN« 


Programmname :DLST.256 2188:78 93 CF 98 BS CF CO 93 <F2> @328:1® AA CF 38 8A CF 68 AA <BE> 
Länge 21192 Bytes @19B:CF EB BS CF 10 94 CF 38 <58> @SSO:CF 89 BA CF BO AA CF DE <a9> 
Ss: —s= 8198:B4 CF 60 94 CF 88 BA CF <CE> 2338:8A CF BB AB CF 28 BB CF <9E> 
0220:70 20 99 42 18 FE BB 22 <59> B1AB:BO 94 CF DB B4 CF 930 95 <A5> 0340:58 AB CF 78 88 CF AB AB <FE> 
0208:978 BF BF BF ar 98 BF BF <CcA> B1AB:CF 28 BS CF 58 95 CF 78 <92> @348:CF C8 BB CF FB AB CF 18 <E7> 
@B1O:OF BF 18 CF 18 80 CF 38 <9E> ®1B8:BS CF AB 95 CF C8 BS CF <98> @350:8C CF 48 AC CF 68 8C CF <92> 
B@18:AB CF 68 88 CF 88 AB CF <Ac> @1B8:ıFQ 95 CF 18 B6 CF 40 96 <32> 8358:9® AC CF BB 8C CF EB AC <69> 
0820:B® 88 CF DS AB CF BB 81 <7C> BICB:CF 68 B& CF 90 96 CF BB <F4> @3560:CF @8 SD CF S@ AD CF 58 <88> 
@@28:CF 28 Al CF 50 81 CF 78 <38> ®1C8:BA CF EQ 96 CF 98 87 CF <91> 83648:8D CF 38 AD CF AB BD CF <42> 
0838:Al CF AB 81 CF CB AI CF <20> 2108:30 97 CF 58 B7 CF 88 97 <78> @378:DB AD CF F8 8D CF 28 AE <78> 
B@38:F® 81 CF 18 AZ CF 48 82 <F8> B1DB:CF AB B7 CF DO 97 CF FB <A&> 8378:CF 48 BE CF 78 AE CF 98 <FE> 
BB40:CF 68 A2 CF 99 82 CF BB <A2> B1EB:B7 CF 20 98 CF 48 BB CF <55> 2380:8E CF CO AE CF EB SE CF <(76> 
@B48:A2 CF EB 82 CF 98 AS CF <93> Q1E8:78 98 CF 98 B8 CF CO 98 <FC> 8398: 18 AF CF 38 SF CF 68 AF <E1> 
0050:30 83 CF 58 AS CF 88 85 <44> B1FO:CF EB BB CF 18 99 CF 38 <FA> @390:CF 88 SF CF B@ AF CF DB <Bi> 
@8S8:CF AB AS CF DB® 85 CF FB <2D> @1F8:B9 CF 68 97 CF 88 BF CF <7D> 83598:8F CF 00 BO CF 28 98 CF <18> 
GULB:AS CF 2@ 84 CF 48 A4 CF <AF> 8200: 38 97 CF DB B9 CF @@ 9A <9D> @SAB:5D BO CF 78 90 CF AB BR <as> 
00698:7@ B4 CF 98 A4 CF CO 84 <De> 0288:CF 28 BA CF 50 9A CF 78 <24> @SAB:LCF CO 98 CF FO BO CF 18 <FA> 
QB70:CF EB As CF 10 85 CF 38 <9B> @210:BA CF AD 9A CF CS BA CF <ac> @SB0:91 CF 4@ Bi CF 68 91 CF <5Q> 
QB7B:AS CF 60 85 CF 88 AS CF <as> @218:FQ 9A CF 18 BB CF AD FB <A2> @388:98 Bi CF B& 91 CF E@ Bi <82> 
@089:B0 85 CF DB AS CF @@ 86 <7F> @220: CF 68 BB CF 90 98 CF BB <aE> @SCA:CF @8 92 CF 30 BZ CF 58 <99> 
BBBB:CF 28 A& CF 39 86 CF 78 <cA> 0228: BB CF E@ 9B CF @8 BC CF <OQ> 83C8:92 CF 8@ B2 CF AB 92 CF <81> 
@a9S:AS CF AO 86 CF CB A6 CF <95> 9230:38 9C CF 58 BC CF 89 9C <7a> @300:D@ B2 CF FB 92 CF 20 BS <SF> 
ORIB:FB 86 CF 18 A7 CF 49 97 <as> @238:CF AB BC CF DB 9C CF FB <78> @SDB:CF 48 93 CF 78 BS CR 98 <13> 
BOABICF 68 A7 CF 98 87 CF BB <Fa> @248:BC CF 20 9D CF 48 BD CF <as> QSEB:95 CF C® BS CF EB 95 CF <51> 
@BAG:A7 CF EB 87 CF @B AB CF <a9> @248:7@ 9D CF 98 BD CF CO 9D <1a> Q3E8:1@ B4 CF SG 94 CF 6Q B& <aS> 
00B9:30 88 CF 58 AB CF 88 88 <S53> 82S0:CF E8 BD 41 70 0@ Bm 42 <16> @SFO:CF 88 94 CF BO B4 CF DB <95> 
BOBG:CF AB AB CF D@ 88 CF FB <SE> 2258: 10 7E @B @2 90 OF OF OF <Di> QSF8:94 CF @Q BS CF 28 95 CF <IF> 
@OC@:AB CF 20 89 CF 48 A9 CF <an> 9260: OF 90 OF OF OF OF 90 CF <45> 0400:58 BS CF 78 95 CF AB BS <94> 
@8C9:78 89 CF 98 A9 CF CB 89 <DF> @268: 18 AB CF 38 80 CF 68 AB <59> @ABE:CF CB 95 CF F@ BSCF 18 <95> 
@ADG:CF EB A9 CF 1@ BACF 38 <B4> 2270:CF 80 20 CF B@ AB CF DE <SO> @410:96 CF 40 B& CF 68 96 CF <aE> 
GODB:AA CF 60 BA CF 88 AA CF <c2> @278:8@ CF O0 Al CF 28 81 CF <EI> @418:90 B& CF BB 96 CF EB B& <98> 
@BEQ:BB BA CF DB AR CF @G BB <BE> @280:5@ Al CF 78 81 CF AD Al <as> @420: CF @8 97 CF 3@ B7 CF 58 <AS> 
BRES:CF 28 AB CF S5@ 88 CF 78 <SE> @288:CF C8 81 CF FB Ai CF 18 <SB> 8428:97 CF 80 B7 CF AB 97 CF <SE> 
BOF@LAB CF AB EB CF CB AB CF <92> @290:82 CF 40 AZ CF 68 82 CF <as> 2430:D@ B7 CF F& 97 CF 28 BB <ar> 
QOFSıFG SB CF 18 AC CF 40 80 <9%6> 8298:9@ A2 CF BB 82 CF EB a2 <53> @438:CF 48 98 CF 78 BE CF 98 <35> 
BIMG:CF 68 AC CF 9@ BC CF BB <46> @2AD:CF @8 83 CF 30 AS CF 58 <71> 2450:98 CF CO BB CF EB 98 CF <6r> 
@1GB:AC CF E@ SC CF @8 AD CF <9F> @2AB:83 CF 8® AS CF AB 85 CF <55> 9448: 1Q B9 CF 38 99 CF 68 B9 <SF> 
B110:30 SD CF SB AD CF 80 aD <D9> @2B0:DB AS CF FB 83 CF 20 AA <F2> @450:CF 88 99 CF BO B9 CF Da <a1> 
@118:CF AB AD CF DB BD CF FB <88> @2B8:CF 48 84 CF 78 A4 CF 98 <DB> 8458:99 CF @@ BA CF 28 9A CF <25> 
8120: AD CF 28 BE CF 48 AE CF <SB> 82C2:84 CF CO A4 CF EB 84 CF <An> 8460:58 BA CF 78 9A CF AB BA <1B> 
8128:70 SE CF 98 AE CF CO BE <F7> @2C8:1® AS CF 38 85 CF 68 AS <68> 8468:CF CB 9A CF FO BACF 18 <26> 
@130:CF EB AE CF 18 BF CF 38 <C6> @2D8: CF 88 85 CF BO AS CF De <25> 8470:7B CF 48 BB CF 68 9B CF <75> 
B1SS:AF CF 60 BF CF 88 AF CF <or> 8208:85 CF 08 A& CF 28 86 CF <2C> 2478:9@ BB CF B8 9B CF EB BB <A7> 
@140:B® SF CF DB AF CF 98 9 <96> 0220:50 Ab CF 78 86 CF AB A& <EA> Q480:CF 98 9C CF 30 BC CF 58 <Sc> 
@148:CF 28 BO CF SQ 98 CF 78 <81> @2E8:CF C8 86 CF FO AL CF 18 <D1> 8488:9C CF 88 BC CF ABS 9C CF <&D> 
2150:B@ CF AB 9@ CF CB BO CF <AB> B2F8:87 CF 40 A7 CF 68 87 CF <64> 2498:D® BC CF Fa 9C CF 298 BD <25> 
B1S8:F@ 98 CF 18 Bi CF 42 91 <ac> 82F8:9@ A7 CF BB 87 CF EO a7 <De> @498:CF 48 9D CF 7@ BD CF 98 <46> 
@1&0:CF 58 Bi CF 98 91 CF BB <1B> @300: CF BE 88 CF 3@ AB CF 58 <f3> BAAB:9D CF CO BD CF EB 9D 41 <Bf> 
2168:B1 CF EB 91 CF @8 B2 CF <96> @SQ8:88 CF 80 AB CF AB 88 CF <ap> ZAAB:2O 20 @0 Da Da mm ma mm <a7> 
8170:30 92 CF 58 B2 CF 88 92 <69> @318:D@ AB CF F& 88 CF 29 A9 <2A> 

0178:CF AB B2 CF DB 92 CF FB <5D> @S18:CF 48 89 CF 78 A9 CF 98 <ED> we 

B1@0:B2 CF 2® 935 CF 48 BI CF <96> @322:89 CF CO AP CF EB 89 CF <ir> Listing. »DLST.256« 

18 — <ru> 2211 IF T=69 THEN CH=11 <FE> 
20 REM Paint 256 (c) by Stephan Gerle & 2212 IF T=68 THEN CH=12 <FT> 
Francois Paquet-Durand <BL> 2213 IF T=78 THEN CH=13 <HF> 
3@ REM Tel.: 82506/7493 (Stephan) ; 2252 2220 ELSE <TF> 
6/2128 (Francois) <BF> 2230 IF Y<-25 <KG> 
42 — <r2> 2248 CH=X DIV 8+21 <XH> 
1928 EXEC DECLARE:EXET MENUE_INIT:EXEC A 2250 ELSE <To> 
N <PS> 2251 IF Y<-14 AND X<22 <JE> 
1948 POKE 799,12:POKE 718,98 <RH> 2252 CH=1@+X DIV 8+71 <HK> 
1270 # START <H6> 2253 ELSE <UA> 
19071 POP :TRAP #FEHLER <SB> 2269 IF Y<-8 AND Y>-12 <6B> 
1972 FOKE 87,%@:DPOKE 88,ME:PLOT 13,%3:P 227® COL=X DIV S:60# START <AN> 
OSITION "32,412? COL#16+LUMg "an"; <EvV> 2280 ELSE <TX> 
2280 -—— <VF> 2298 IF Y<-2 AND Y>-7 <SE> 
2212 Do <Ta> 2300 LUM=X DIV S:60# START <Du> 
2028 EXEC WAIT_KEY <IH> 2312 ENDIF <sa> 
2038 CHALT=CH <XG> 2320 ENDIF <ST> 
2040 IF T>%0 <FL> 2348 ENDIF <52> 
205® T=T%127:D=10 <I1L> 25341 ENDIF <TD> 
2060 IF T=42 THEN LUM=LUM+(LUM<1S):D=X1 <KU> 2350 ENDIF <TC> 
2870 IF T=43 THEN LUM=LUM-(LUM>4@)D=41 <UQ> 236@ IF CHALT<>CH <TA> 
2280 THEN COL=COL+(COL<1S9:D=%1 <TK> " | 2378 POS=CHALTK4-ZS+ME <Lu> 
2098 THEN COL=COL-(COL>4®) :D=%1 <DU> 238@ POKE POS,PEEK (POS) &127 <HK> 
21980 THEN 60# START <OR> 2398 POKE POS+%1 ,PEEK (POS+711)&127 <10> 
2118 <0B> 2490 POS=CHx4-/35+ME <EV> 
2128 THEN CH=%1 <RP> 2418 POKE POS,PEEK (POS) !128 <1c> 
2138 THEN CH=42 <ur> 2420 POKE POS+X1,PEEK(POS+%41) :128 <D1> 
2140 IF T=66 THEN CH=43 <UN> 2438 ENDIF <sy> 
2150 IF T=98 THEN CH=4 <NS> 2448 IF Y>-%1 AND STRIG(X@=7Q OR CH>11 <LR> 
2168 CH=5 <acy 2458 EXEC SAFE:XA=X: YA=Y:EXEC HELL:D=4@ <HI> 
2172 CH=6 <aPp> 2468 ON CH EXEC PLOT,LNE,BOX,CRC,TXT,SCL 
2ı22 CH=7 <PT> „FIL,CUT,RAY,RAY,RUB,DSK,NEW <am> 
2198 CH=8 <TN> 2478 ENDIF ° <TK> 
2208 CH=9 <RY> 

2218 CH=18 <cs> ing. »Paint256« 
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mit kostenlosem »Amiga«-Probeexemplar und Poster 
möchte eine kostenlose Ausgabe von -Arhige 
= zur Probe, Wenn ich »Amiga-Magazin« weitorleser 


MI ATARI 


mit ge Silbentrennung und integrierter 


‚Ab sofort erhalten Sie PROTEXT in einer 
leistungsstärkeren Version - zum alten 


Preis. Als Besitzer der Version 1.x (1.0-1.3) 


haben Sie die Möglichkeit, kosten- 
günstig ein Updote zu erhalten. , 


PROTEXT ist ein leicht bedienbares, Maus- 


unterstütztes Textprogramm mit hoher 
leistungsfähigkeit. Eingebaute Hilfefunk- 
tionen ermöglichen auch dem Anfänger, 
die gesamte leistungsfähigkeit dieser 
professionellen Software zu nutzen. Das 
Programm erlaubt die direkte Eingabe 
und Änderung aller Attribute wie Fett- 
schrift, Unterstreichen, Kursivschrift, 
Breitschrift, #«+-und pe. Der Text 
ist ohne besondere Ausgabe auf dem 
Bildschirm sofort formatiert sichtbar, so 
wie er auch auf dem Drucker aus- 
gegeben wird. Der Zeichensatz ist frei 
definierbar. Alle Positionen im Text (vom 
verfügbaren Speicherplatz abhängig) 
können mit entsprechenden Funktionen 
sehr schnell aufgesucht werden. 


Die schon bekannten leistungsmerkmale: 


vollautomatische Silbentrennung, der 
Text wird auf dem Bildschirm genauso 
ausgegeben, wie er später ausgedruckt 


2 Morkt&Technik Verlag AG, Buchverlag, Hans- 


Bestellungen im Ausland bitte an: SCHWEIZ: Markt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656 - ÖSTERREICH: Rudolf lechner & Sohn, 
Heizwerkstraße 10, A-1232 Wien, Telefon (0222) 677526 - Ueberreuter Media Verlagsges. mbH (Großhandel), Alser Stroße 24, A-1091 Wien, Telefon (0222) 481538-0. 


für die ATARIST= 


en 


ionelle deuische Textverurbei 


ATARIST. 


wird (WYSIWYG-Prinzip), komfortable 
Funktionsübersicht, universelle Drucker- 
anpassung, Verketten von Texten, Archiv- 
Funktionen, komfortable, programmier- 
bare Rechenfunktionen, selbstlernende 
Textkorrektur mit Grundwortschatz, 
Textlupe, Zeichensatzanzeige. 


___ Zeitscl 


— einge 
Stroße 2, 8013 Haar bei München, Telefon (089) 4613-0 


kulation. 


Neue Features: 

Block markieren jetzt direkt mit Maus 
möglich, Maskenmodvus, Zugriff auf im 
Desktop installierte Accessories, Text 
direkt drucken, Ganzseitenübersicht, 
erweiterbare, verbesserte Silbentren- 
nung, optimierte Druckerinstallation, 
geschwindigkeitsgesteigerte Formatier- 
routine und vieles mehr. 


Hardware-Anforderung: 

® Atari 260 ST, 520 ST, 520 ST+, 
1040 ST, 

© Monochrommonitor 

© beliebiger Drucker 


Bestell-Nr. 51643 


Für nur DM 148,— 


PROTEXT Update 1.x auf 2.1: 
Bestell-Nr. 51644 

Für nur DM 30,— 

(gegen Einsendung der Originaldiskette 


oder Registrierungskorte) 
* inkl. MwSt. Unverbindliche Preisempfehlung 


2480 POKE 764,255 
2498 LOOP 

2990 — 

3200 PROC DECLARE 

391@ DIM LEER$(256) ‚MAUS$(11) „NAMES(16), 
UNDO$ (7689) 

3931 PMB=12@:POKE 54279 ‚PMB: PHB=PMB#256+ 
1837 

3948 CH=%1:CHALTSCH: XX=41:COL=41:LUM=23: 
UN=ADR (UNDOS$) 

3998 POKE 787,255: POKE 53277 ,42:MAUSS="L 
ETL ‚„IEETL „I@p{SHIFT =3%<.{CTL GITCTL B 
3XCTL „>":MOVE ADR(LEERS) ‚PMB,256 

3129 AH=$8219: AF=sAB1 =AH+$1E0@ 

3142 OPEN #%1,4,%8,"D:DLST.256":BGET #%1 
‚$7880,596:BSET #21,$7CQ8,596:CLOSE #71 
317@ BLOAD "D:COL256.BIN" 

3138 POKE AF,72:MOVE AFJAF+Z1,$1EQB: MOVE 
AF ‚AH, $1EB® 

3218 POKE 196,120: GRAPHICS %B:POKE 92,70 
3298 ENDPROC 

3308 PROC PARTSAFE 

3310 IF YACY:YY=YAr4Q:ELSE :YY=Y#AQ:ENDI 
F_:MDVE UN+YY,AH+YY,ABS (YA-Y) +49+48 


354@ DPOKE 88,ME:PLOT %3,23:POSITION 78, 

20:MOVE ADR(LEER$) „ME,60:POKE 87,%8 

3578 ENDPROC 

3589 PROC HELL 

359Q0 DPOKE 88,AH:POKE 87,9:COLOR LUM 
ENDPROC 


3618 PROC FARBE 

3620 DPOKE 88,AF:POKE 87,9: COLOR COL 
3650 ENDPROC 

3648 PROC AN 

365Q D-USR ($9698,45) :POKE 559,58 

366@ ENDPROL 

3678 PROC AUS 

3688 POKE 559,78: D=USR ($9629,4@) :PAUSE % 


3692 ENDPROC 

3708 PROC WAIT_KEY 

371@ REPEAT 

372@ EXEC MAUS 

373@ UNTIL PEEK(754)<255 OR STRIG(%2)=%2 
IF PEEK(764)<255:GET TıELSE :T=%@:E 


3758 ENDPROC 

3768 PROC SAFE 

3770 MOVE AH,UN,$1E08 

3788 ENDPROC 

379@ PROC UNSAFE 

3892 MOVE UN,AH,$S1EBB 
ENDPROC 


3922 PROC MENUE_INIT 

3839 EXEC MENUE:POKE 752,1 

3948 7 "Plt«LnexBoxsZrcnTxtaScl“FilaCute 
Ray«Kin.ErsaDskNewa" 

POSITION 21,%21:7 "Color«No. 12" 
3878 CH=X1:POKE 87,9:DPOKE 88,ME+8@ 
3888 FOR I=78 TO 15 

3898 COLOR I:TEXT 145,70," 
391m NEXT I 

3928 ENDPROC 

4128 PROC PLOT 

4138 WHILE STRIG(ZA)=7R AND Y>-%1 

4148 EXEC HELL:PLOT X,Y:EXEC FARBE: PLOT 


4218 PROC FIL 

4228 IF COL>XB AND LUM>Z@ 

4230 EXEC HELL:PAINT X,Y:EXEC FARBE:PAIN 
TX,Y 

4248 ENDIF 

4268. ENDPROC 

4272 PROC LNE 

4258 WHILE STRIG(%@) 
764) <>28 

429@ PLOT XA,YA:DRAWTO X,Y:EXEC PARTSAFE 


AND Y>-%1l AND PEEK( 


tEXEC MAUS 

4318 WEND 

432® IF Y>-X1 AND PEEK(764)<>28 THEN PLO 
T_XA,YA:DRAWTD X,YzEXEC FARBESPLOT XA,YA 
:DRAWTO X,YzPAUSE %3 

4348 ENDPROC 

4350 PROC BOX 

44928 WHILE STRIG(Z9) AND Y>-Z1 AND PEEK( 
764) <>28 

4428 PLOT XA,YA:DRAWTO XA,YzDRAWTO X,Y:D 
RAWTO X,YAzDRAWTO XA,Ya 

4438 EXEC PARTSAFE:EXEC MAUS 

4438 WEND 

4458 IF Y>-%1 AND PEEK(764)<>28 

4478 PLOT XA,YArDRAKTO XA,Y:DRAWTO X,Y:D 
RAWTO X,YA:DRAWTO XA,YA 

4472 IF D=70 

4488 EXEC FARBE:DRAWTO XA,Y:DRAWTO X,Y:D 
RAWTO X,YAzDRAWTO XA,YA 

4482 ENDIF 

449@ ENDIF 

4508 ENDPROC 

4518 PROC CRC 

4528 WHILE STRIG(Z@) AND Y>%B® AND PEEK(7 
64)<>28 

4538 CIRCLE XA,YA,ABS(XA-X) „ABS(YA-YIzEX 
EC UNSAFE:EXEC MAUS 

4558 WEND 

4568 IF Y>-%1 AND PEEK(764)<>28 

4588 CIRCLE XA,YA,ABSCXA-X) „ABSCYA-VI:EX 
EC FARBE:CIRCLE XA,YA,ABS(XA-X) „ABSCYA-Y 
’ 


4598 ENDIF 
4688 ENDPROC 

4618 PROC TXT 
4628 L=10:6=%1:POS=7B: NAMES="":IF Y<184 

THEN EXEC INPUT 

46538 WHILE STRIG(%®) AND Y>72@ AND Y<184 

AND PEEK (764) >28 

4648 TEXT X,Y,NAMES:MOVE UN+Y#4@,AH+Y#48 
„320: EXEC MAUS 

466Q WEND 

4670 IF Y<%Q0 DR PEEK(764)=28:EXEC UNSAFE 
468@ ELSE :TEXT X,Y,NAME$:EXEC FARB 
T_X,Y,NAME$:WHILE STRIG (29) =: WEND 
IF 


4690 ENDPROC 

4788 PROC SCL 

471@ D=41:EXEC BOX:P1=XA: P2=YA:P3=X:P4=Y 

4712 IF PEEK(764)<>28 AND X>XA AND Y>YA 

4728 EXEC UNSAFE:REPEAT :EXEC MAUS:UNTIL 
DB: XA=X: YA=SY:EXEC HELL 

XEC BOX: PS=XA:P&=YA:P7=: 


IF PEEK(764)<>28 AND X>XA AND Y>YAa 
4740 EXEC UNSAFE:EXEC SAFE:EXEC AUS 
Z1=(P1-P3) / (PS-P7) :22=1P2-P4) / (P&-P 


4762 FOR I=%42 TO %1 

4778 FOR l1=P5S TO P7 

4788 FOR I2=P& TO P8 

481@ DPOKE 88,UN:LOCATE Pi+(I1-PS)#Z1,P2 
+(12-P6)*Z2,Z:COLOR Z:DPOKE 88,AH+1x*5292 


4820 DPOKE 88,AH+1#$2880: PLOT 11,12 
4858 NEXT 12 

486® NEXT I1 

4878 MOVE AF,UN,7688 

488@ NEXT I 

4882 EXEC AN 

4884 ELSE :EXEC UNSAFE:ENDIF 

4886 ELSE :EXEC UNSAFE:ENDIF 

4890 ENDPROC 

4988 PROC DSK 

4928 EXEC MENUE:? “Save.Load.FrmtDir=sE 
Dir„Bye=.Quit" 

4938 REPEAT 

4942 EXEC WAIT_KEY:D=48: T=T%95 
4950 IF T=70 


Listing. »Paint256« (Fortsetzung) 


<TS> 
<oP> 
<RI> 


<66> 


<mI> 
<U6> 
<La> 


<FF> 
<TU> 
<aR> 
<an> 


<Lz> 
<65> 


<CX> 
<uL> 
<aAa> 


<LO> 
<PS> 
<vS> 
<EA> 
<AX> 


<EJ> 


<HH> 
<BD> 
<CK> 


<ıu> 
<BR> 
<Hc> 
<ıy> 


<RK> 
<IS> 
<C2> 
<ca> 
<KT> 
<66> 
<EM> 
<12z> 
<IH> 
<PH> 
<HK> 


x6J> 
<FD> 
<AL> 
<FY> 


IF Y<-25 THEN D=X DIV 19+%1 
ELSE 
IF'T=83 
IF T=76 
IF T=78 
IF T=68 
IF T=69 
IF T=66 
IF T=81 
ENDIF 
EXEC MENUE:IF D<& THEN ON D EXEC SA 
VE,LAD, FORMAT ‚NDIR,EDIR:D=& 
5978 EXEC MENUE_INIT 
SB28 UNTIL DS 
5998 IF D=7 THEN EXEC AUS:GRAPHICS 20:PO 
KE 53251,78:END 

ENDPROC 


THEN D=5 
THEN 
THEN 


PROC RUB 

MAUSS="CCTL „LESE LTL >PUHUHUHESC 
>ICCTL ‚ICCTL „2":POKE 87,15 

WHILE Y>4B AND PEEK(764)=255 

WHILE STRIS(ZB)=70 AND Y>Z1 

EXEC MAUS:COLOR 78 

DPOKE 88,AH= TEXT X#42,Y-Z1,"u" 
DPOKE S8,AF: TEXT Kr%2,Y-Zi 50a" 
WEND 

EXEC MAUS 


WEND 

MAUS$="{CTL „ILCTL „I@p{SHIFT =3x<. 
SILCTL BITCTL „>" 

ENDPROC 


PROC NEW 

EXEC MENUE:? "“uClearıscreens (Yes/N 
sEXEC WAIT_KEY 

IF T=89 

POKE_AF ,ZQ:MOVE AFJAF+41,$1E08: MOVE 
AF,AH,$1EB® 

ENDIF 

EXEC MENUE_INIT 

ENDPROC 


S36® PROC FORMAT 

5378 EXEC MENUE:? "O.k.tosformatsdiskin 
«drives1?.(Yes/No) " 

5388 EXEC WAIT_KEY 

5398 IF T=89 

5428 EXEC AUS:XIO 254,#%1,%0,40,"DI":EXE 
c AN 
5438 
5448 


ENDIF 

ENDPROC 

5458 PROC NDIR 

5468 LEER$="D:#.PIC":L=1B:EXEC DIR:LEERS 
="LETL „ILETL „ILETL „ILCTL „ILCTL „ItCcT 


PROC EDIR 
LEERS="Di#.*"ıL=1S:EXEC DIRTLEERS=" 
SIELTL „HEIL zIECTE sICCTL „3 


EXEC AUSSCLOSE #%X1:0PEN #%1,6,%8,LE 


REPEAT 

EXEC AUS: INPUT #%1,NAME$:SL=11 

IF NAME$ (5)<>"FREESECTORS" 
POSITION 19,%8 

FOR I=%5 TO 18 

IF NAMES(I,I)="." THEN SL=SL-%1 
NEXT I 

IF NAMES (%2,%2)=".":2? NAMES (XS,L) 
ELSE :? NAME$(Z1,1S):ENDIF 

EXEC AN 

5728 WHILE STICK (22)=15 AND PEEK(764)=25 
5 AND STRIGS(%2) :WEND 

571@ IF PEEK(744)<255 THEN GET T 

5712 ENDIF 

5728 UNTIL T=155 OR STRIG(%8)=7@ DR NAME 
SEIRZ2,RZI<Y"" OR T=27 

5738 UNTIL STRIG(78)=78 OR T=27 OR T=155 
5748 CLOSE #%1 

5758 ENDPROC 


PROC MAUS 

A=STICK (79) 

X=X+XX# (ALB=70) - (ALA=ZQ) 

Y=Y+ (ARA2=Z0) - (ALZ1=Z2) 

IF Y>191 THEN Y=191 

IF Y<-32 THEN Y=-32 

IF X>79 THEN X%=77 

5858 IF X<%B THEN X=48 

5858 POKE 53251,X*42+48:MOVE ADR(MAUSS), 
PMB+Y,11 

5868 ENDPROC 

5878 # FEHLER 

S89@ CLOSE #%1:EXEC MENUE:EXEC AN 


5908 ? "uuFehleruNr.:2"3ERR5".„nTaste/K 


nopf«" 

5912 EXEC WAIT_KEY:EXEC MENUE_INIT 

5932 GO# START 

5948 PROC INPUT 

59758 IF NOT (6) THEN EXEC MENUE:POSITION 
2,9:7 "Savesas?" NAMES (A1)="" 

5968 REPEAT 

5978 IF G:MOVE UN+Y*48,AH+Y#49,328: TEXT 
X,Y,NAMES 


5988 ELSE :POSITION 11,90:? NAMES; ".":END 
IF 

5998 GET T:D=T&127 

&21@ IF (D>-%1 AND D<27) OR (D>31 AND D< 
125) 

6822 POS=POS+(POS<L) : NAMES (POS,POS)=CHR$ 
nm 

6249 ENDIF 

6BS@ IF T=126 AND POS=%B THEN NAMES="" 
6968 IF T=126 AND POS>7X8 THEN POS=POS-%1 


z NAMES (POS+A1)= 


6878 UNTIL T=155 OR T=27 

6872 IF T=27 THEN POKE 764,28 
6888 ENDPROC 

62979 PROC LAD 

618@ EXEC NDIR 

611® IF T<>27 OR NAMES (A2,22)<>"2" 


NAME$ (%1,%2) ="Di "NAMES (SL)=".PIC" 

EXEC AUS:OPEN #%1,4,78, NAMES 

6148 BGET #%1,AH,$1EBB:BGET #%41,AF,+1E08 
sCLOSE #%1:EXEC AN 

6178 ENDIF 

ENDPROC 

PROC SAVE 

6=48:1L=8: P0S=%@: EXEC INPUT 

IF T<>27 

MOVE ADR (NAMES (421) ) „ADR (NAMES (23) ) 


NAMES (%1 ,%2)="D: ":NAME$ (POS+43)=".P 


EXEC AUS:OPEN #%1,8,78,NAMEs 

6262 BPUT #%1,AH,$1EQ@:BPUT #%1,AF,s1E20 
3CLOSE #X1:EXEC AN 

6270 ENDIF 

6388 ENDPROC 

7OBB PROC CUT 

7@1® D=A1:EXEC BOX:EXEC UNSAFE:PZ=Y:XA=X 
A DIV %2:PI=ABS(X DIV %2-XA)EXEC SAFE:X 
x=12 

7@2@ IF Y>YA AND X>XA 

7108 REPEAT 

7118 EXEC UNSAFE 

7120 FOR I=YA TO P2 

7122 IF (Y+I)*4B-P2#4@<7@ THEN POKE 764, 
28:EXIT 

713B MOVE XA+UN+I*49,X DIV Z2+AH+(Y+L)x4 
@-P2#48-P1+71,P1i 

714@ NEXT I 

7158 EXEC MAUS 

716@ UNTIL STRIG(70)=%4@ OR PEEK(764)=28 

7178 IF PEEK(764)<>28 

7188 MOVE AF,„UN,7688 

7198 FOR I=yA TO P2 

7280 MOVE XA+UN+I#4B,X DIV Z2+AF+(Y+T)*A 
@-P2#42-P1+71,Pi 

721@ NEXT I 


Listing. »Paint256« (Fortsetzung) 


<@E> 
<KC> 
<Q0> 
<RD> 
<IN> 
<HD> 
<29> 
<au> 


<Tc> 
<PO> 
<HB> 
<XP> 


<uc> 
<PQ> 
<9B> 
<PL> 


<FC> 
<EH> 


<DL> 


<Zu> 
<V6> 


<ZN> 


<ur> 
<sX> 
<ul> 


<TZ> 
<RO> 
<KE> 
<PF> 
<oK> 
<61> 
<6J9> 
<aH> 
<co> 


<0oc> 
<TI> 
<PK> 
<Ka> 
<zH> 
<RT> 


<au> 


<To> 
<60> 


<UK> 
<To> 
<OH> 
<av> 


<YJ> 
<GE> 
<EH> 
<oT> 
<10> 


<EN> 


<uv> 
<FJ> 
<LR> 
<IB> 
<FM> 
<KL> 
<ng> 


<Sc> 
<Fc> 
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Spitzen-Softwaure 


WordStar 3.0 
mit MailMerge 
Dieses Standardprogramm mit welt- 
weitem Erfolg bietet Ihnen bildschirm- 
orientierte Formatierung, deutschen 
Zeichensatz und integrierte Hilfstexte. 
Lieferumfang: Zwei 3"h-Zoll-Disketten mit 
-Emulator und WordStar/Mail- 
Merge-Dateien, Originalhandbuch von 
MicroPro, Beschreibung der ATARI- 
spezifischen Version. 
Hardware-Anforderung: ATARI-ST- 
Computer, 80-Zeichen-Monitor, min- 
destens ein 3\%-Zoll-Diskettenlaufwerk, 
Drucker mit Centronics-Schnittstelle. 
Best.-Nr. 50106 
DM 199,-* (sFr 178,-/85 1990,-*) 


dBASE II 2.41 
Dos bedienerfreundliche Datenbank- 
system dBASE Il beinhaltet eine eigene 
Programmiersprache für die Erstellung 
individueller Programme. dBASE II wurde 
unter dem Betriebssystem GEM-TOS 
den ATARI-ST-Computern angepaßt und 
läßt sich komfortabel über Pull-down- 
Menüs mit der Maus steuern. 
Lieferumfang: 3'%h-Zoll-Diskette, 
Originalhandbuch von Ashton-Tate, 
Beschreibung der ATARI-spezifischen 
GEMMession. 

Hardware-Anforderung: ATARI-ST- 
Computer mit Betriebssystem im ROM 
(260 ST, 520 ST, 520 ST+, 1040 ST), ein 
3)h-Zoll-Diskettenlaufwerk, Drucker mit 
Centronics-Schnitistelle. 

Best.-Nr. 50306 

DM 348,-* (sFr 295,-/85 3490,-*) 


ar 
unter GEM-TOS 


BN-Diskene für 
ATARI 260 ST. 520 ST. S2O ST" und WO ST 


ur ATARI ST 


Diese Markt&Technik-Software erhalten 
Sie in den fachobteilungen der Waren- 
häuser, bei Ihrem Computerfachhändler, 
im Buchhandel oder direkt beim Verlag 
gegen Vorauskasse. Fragen Sie auch 
nach dem neuen Gesamtverzeichnis 
Frühjahr/Sommer’87. Oder fordern Sie es 
direkt beim Verlag an. 


Dazu die weiterführende Literatur: 


WordStar für ATARI ST 


Das Buch für den mühelosen Einstieg in 
die Praxis der Textverarbeitung mit 
WordStor. 

Best.-Nr. 90208, ISBN 3-89090-208-1 


dBASE Il für die ATARI ST 


Zu einem Weltbestseller unter den 
Datenbanksystemen das klassische 
Einführungs- und Nachschlagewerk. 
Best.-Nr. 90206, ISBN 3-89090-206-5 
Jedes Buch kostet DM 49,- 

(sFr 45,10/85 382,20) 

Erhältlich bei Ihrem Buch- oder 
Computerfachhändler. 


= kl. MwSt. 
Unverbindliche Preisempfehlung 


Markt&ffechni 


|Markt&Techrik Verlag AG, Buchverlo Mönchen, Telefon (089) 4613-0 
Bestellungen im Ausland bitte an: SCHWEIZ: Morkt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656 - ÖSTERREICH: Rudolf lechner & Sohn, 


Heizwerkstroße 10, A-1232 Wien, Telefon (0222) 677526 - Ueberreuter Medio Verlogsges. mbH (Großhondel], Alser Strade 24, A-1091] Wien, Telefon (0222) 481538-0. 


So 
Heasfnv-lCompuf 
IUDPRY"UOINDGE 


e _ aLı i e 
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Cosinus macht Weltkarriere 
Comic-Weltkonzern Bulls nimmt Computerfreak Cosinus 
unter seine Fittiche 


Listings über Listings für C64 und C 128 
Gelungene Reversi-Varionte oder eine raffinierte RAM- 
Disk für den C 128 im 64er-Modus 


Welchen 16-Bitter soll ich kaufen? 
Umfongreicher, zweiteiliger Vergleichstest der 16-Bit- 
Computer 


Atari ST: } 
3D-Zeichen- und Animationsprogramm »GFA-Objekt« 
wird mit anderen vergleichbaren Programmen getestet 


So geht’s: Basic unter MS-DOS 
Basic-Kurs über GW-Basic und das Basic-2 der 
Schneider-PCs 


Exklusiv: Die Vizawrite-Story 
Der Programmierer der Vizawrite-Programme 


EEE EEE EEE EEE HE HE HEN EEE Bam BEE 
ee! ‚ . 
[I IL} = 1241 
N QuTschnein 
FÜR EIN KOSTENLOSES PROBEEXEMPLAR VON HAPPYCOMPUTER 
SENSE ERS rer Aa Ton Pbeenpl: Wenn org-Conpun 
| Een dan BEansBa Ns Funde era DU Aa au Di Enzel- 


| 


> mm m m | 


Il=— 
I> PLZ, Ort 
I Datum T. Umerschrik 
Mir ist bekannt, doß ich diese Bestellung innerhalb von 8 Tagen bei der Bestellodresse widerrufen kann 
und besiönge dies durch meine zweite ut. Zur der Frist genügt die rochtzoiige Absendung 
IT 
Dotum 2. Untonchift 


Gutschein ousfüllen, ausschneiden, in ein Kuvert stecken und absenden 
Nora Technik Verog Akiengesölschoh, Verrieb, Posch 1304, 6013 Floor 


HCS20 


7320 


ELSE 
EXEC UNSAFE 
ENDIF 


REPEAT 
EXEC LNE:EXEC HELL:EXEC SAFE:IF CH= 


18 THEN XA=XıYA=Y 


7358 
7398 


UNTIL PEEK(764)=28 OR Y<%1 
ENDPROF 


Listing. »Paint256« (Schluß) 


<TK> 
<PB> 
<TC> 
<TF> 
<QE> 
<PN> 
<AR> 
<Eo> 


<uB> 
<NH> 
<PP> 


1208 
1218 
1228 
1958 
19848 
1258 
18.0 
en 

1978 


Mandelbrotmenge/Apfelmaennchen 
in 256 Farben. 


Voraussetzung: 

Atari XL/XE 

Floppy (Turbo Basic XL) 
Grafikerweiterung fuer 256 Farb 


(COL2S6.BIN auf Diskette in Lau 


fwerk 1) 


1383 
1278 
1188 
1118 
1128 
11358 
(256) 


REM (c) by Stephan Gerle 


EXEC FARB2S6_INIT 
GRAPHICS %8 
DIM LU$(12) ,ROS(12) ,„FILE$S(28) ‚LEERS 


1140 LUS="{CTL „IICTL „ItCTL_ „ItETL „>tC 
TL_2ItETL „I£CTL „ICCTL „ItETL „ITESC CT 


U >3CCTL „IEETL „>": 


ROS="{CTL „ILETL „> 


ESC CTL >ILCTL AYLCTL APLCTL AYCCTL Arc 


TL A} 
1158 
1162 
1178 
1188 
m" 
1199 
8/86" 
1288 
1218 
1220 
1238 


ICTL AIKCTL AILCTL „IKCTL „3" 
# MENUE_NEU 

POKE 82,%2:CL8 

SETCOLOR %1,70,12:SETCOLOR %2,728,78 
? "„„Mandelbrotmenge= (Apfelmaennche 


? "nach“Spektrum.der“Wissenschaft=1 


? Haraauaas (c)abyaStephanıGerle" 
POKE 82,5:? 
? "Laden“Bild" 
“Speichern«Bild“ 
Berechnen.Bild" 
"Ausschnitt-vomaBild" 
"Directory" 


x0 

? 

3 

? 

? 

? "Umschaltenszum-Bild: SELECT" 
? "Vom“BildızumMenues: „STA 
3 Sm 
? 

? 

> 

? 

7 

7 


Aktuelle,Paramete: 


Real-Teilsanuas (X ara" zAECKE 
"Imaginaer-Teil. (y)a:2";BECKE 
"Seitenlaenge--- (s)ara";SEITE 


? "IhresWanl?."; 

MENUE=DPEEK (88) 

MENUEDLST=DPEEK (568) 

* START 

DPOKE 568 ,MENUEDLST 

DPOKE 88,MENUE:POKE 87,78 

POSITION 22,192? “"5 

REPEAT 

UNTIL PEEK($DO1F)=S OR PEEK(764)<25 


IF PEEK($DBIF)=5 

D=USR ($2628,64) 

WHILE PEEK ($DB1F)<>6:WEND 

D=USR (40629 ,29) 

ELSE 

GET TT:TT=TT295: 1-78 

IF CHR$(TTI="S“ THEN EXEC SPEICHERN 
IF CHRSCTTI="L" THEN EXEC LADEN 


1548 


IF CHR$(TTI="B" THEN EXEC EINGABE:E 


XEC RECHNEN: T=%1 


1550 


IF CHR$(TTI="A" THEN EXEC AUSSCHNIT 


TzEXEC RECHNEN: T=%1 


1568 


IF CHRSCTTI="D" THEN ? :DIR <GET TT 


IF T=X1 THEN POP :60# MENUE_NEU 
ENDIF 
G0# START 


PROC EINGABE 
? 


? "Realteil.der“linkensunterensEcke 


INPUT "X=" AECKE 
? "Imaginaerteilsder«linkensunteren 


„Ecke" 


1668 
1878 
1688 
1698 
1798 
1718 
1728 
1738 
1748 
1758 
1768 
1778 
1788 


INPUT "Y=" BECKE 
? "Seitenlaenge.des.Ausschnitts" 
INPUT 


PROC RECHNEN 

DEUSR ($B628,64) 

POKE AH,Z@:MOVE AH,AH+A1,$1DFF 
MOVE AH,AF,$1E08 
SPALT=SEITE/16B 

POKE 87,9:DPOKE 88,AH:COLOR 8 
TEXT %0,40,STRs(AECKE) 

TEXT %8,8,STR$(BECKE) 

TEXT %8,16,STR$ (SEITE) 
DPOKE 88,AF:COLOR 6 

TEXT 28,40,STR$AECKE) 

TEXT %2,8,STR$ (BECKE) 

TEXT %Q,16,STR$ (SEITE) 

FOR M=78 TO 159 
BC=M#SPALT+BECKE 

FOR N=78 TO 159 STEP %2 
AC=N#SPALT+AECKE 

AZ=48: BZ=%0: ZAEHLER=%® 
REPEAT t 
AQ=AZı AZ=AZNY2:B2=BZ“Y2 
AZ=AZ-BZ2+AC 

BZ=7.2xAQ"BZ+BC 
ZAEHLER=ZAEHLER+X1 

UNTIL (A2+B2>4) OR (ZAEHLER>TIEFE) 
IF ZAEHLER<=TIEFE 

COLOR ZAEHLER MOD 16 

DPOKE 88,AH 

PLOT N DIV 42,191 

COLOR (ZAEHLER DIV 16) MOD 16 
DPOKE 88,AF 

PLOT N DIV %2,191-M 

ENDIF 

IF PEEK ($D@1F)<>7 

IF PEEK ($D@IF)=& 

POKE 559,422: D=USR ($8599,64) 
ELSE 

IF PEEK(SDBIFI=5 

POKE 559,48: D=USR ($0688,20) 
ENDIF 

ENDIF 

ENDIF 

NEXT.N 

NEXT m 

D=USR ($8600,22) : GRAPHICS 7.9 
ENDPROC 


PROC SPEICHERN 
7 


? "Nummer“des“Bildesı"; 
INPUT NR 

FILE$="DrAPFEL" 
FILE$(LEN(FILE$S)+A1)=SSTRE (NR? 
FILE$ (LEN (FILES) +X1)=".PIC" 
TRAP #FEHLER 

OPEN #%1,8,48, FILES 


Listing. »Apfel256« 


<EH> 
<XH> 


<Ab> 
<FH> 
<T0> 
<IH> 
<va> 
<yy> 
<HN> 


<KC> 
<yf> 


<Y6> 
<KP> 
<BR> 
<EO> 
<RP> 
<T9> 
<oT> 
<ur> 
<NE> 
<HT> 
<SR> 
<c9> 
<Vr> 
<cD> 
<DE> 
<IL> 
<PP> 
<VB> 
<cH> 
<IX> 
<aB> 
<FY> 
<Ha> 
<ZzV> 
<4I> 
<TH> 
<EU> 
<HC> 
<PVv> 
<BF> 
<nD> 
<LO> 
<TB> 
<I> 
<Bl> 
<HT> 
<AS> 
<rYa> 
<XCc> 
<sT> 
<EG> 
<ED> 
<YB> 
<TT> 
<DR> 
<IX> 
<sn> 
<SP> 
255> 
<HH> 
<62> 
<HX> 
<PA> 
<UF> 
<TH> 
<HA> 
<QaA> 
<FV> 
<uV> 
<CH> 
<eK> 
<xI> 
<CK> 
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2288 BPUT #%1,AH,$1E08 <Tr> 2918 IF AB<%X1 THEN AB=%1 <BH> 
2298 BPUT #%1,AF,$1E08 xsv> 2920 IF X+AB>8@ THEN AB=AB-%1 <DD> 
2398 ? #%1,STR$(AECKE) <ur> 2958 IF Y+AB>8@ THEN AB=AB-X1 <DP> 
2518 ? #41,STR$(BECKE) <Vc> 2948 ENDIF <TL> 
2328 ? #%1,STR$(SEITE) <Ra> 2950 POKE 53248,X#712+48 <RS> 
2339 # FEHLER <nc> 2969 POKE 53249 ‚X*72+4B+AB#2 <az> 
2548 CLOSE #71 <HM> 2978 MOVE ADR(LU$) „PMB-Y#%2,12 <6D> 
2358 POP :60# MENUE_NEU <HH> 2988 MOVE ADR(RO$) „PMB-Y#%2-%2#AB+264,12 <SP> 
2569 ENDPROC <PB> 2998 AECKE=AA+X=SPALT <ER> 
2378 — <u6> 3808 BECKE=BB+Y#SPALT <6T> 
2392 PROC LADEN <Sh> S@1@ SEITE=AB-SPALT <18> 
2398 ? <xD> 3222 UNTIL PEEK($DBIFI=6 <rI> 
24908 ? "Nummer „des“Bildesı"; <aB> 38352 POKE S3248,%@:POKE 53249,78 <XB> 
2418 INPUT NR <EH> 3848 D=USR (596090 ,%9) :6RAPHICS 78 <HQ> 
2428 FILE$="D:APFEL" <Hh> 3250 ? "Maximale-Iterationstiefe" <aT> 
2438 FILES(LEN (FILES) +41) =STR$CNR) <CI> 3868 INPUT TIEFE <uL> 
2448 FILE$(LEN (FILES) +Z1)=".PIC" <FL> 3878 ENDPROC <02> 
2450 TRAP #NICHT_VORHANDEN <HK> 3288 — <HE> 
2468 POKE 73,78 <HD> 3898 PROC FARB2S6_INIT <Sf> 
2478 OPEN #71,4,70, FILES <A6> 3188 REM Grafik nit 256 Farben <uB> 
2489 BGET #%1,AH,$s1E82 <HT> 311@ REM Aufruf mit D=USR ($688,6TIAMode) <T8> 
2498 BGET #21,AF,$s1E28 <La> 3128 REM Ausschalten mit D=USR (3439,2) <rs> 
2582 INPUT #%1,FILE$S <cU> 3132 REM Helligkeitsbild bei AH=$3918 <FJ> 
2518 AECKE=VAL (FILES) <co> 3148 REM Farbbild bei AF=SABıS <CR> 
2528 INPUT #Z1,FILE$ <DA> 3152 AH=$8210: AF=$ADı2 <AS> 
BECKE=VAL (FILE$) <DA> 3168 POKE AH,Z8:MOVE AH,AH+%21,$1DFF SK> 
2548 INPUT #%1,FILE$ <xD6> 31728 MOVE AH,AF,$S1EBB <cCc> 
2558 SEITE=VAL (FILES) = <MD> 3188 POKE 106, 120: REM Speicher schuetzen <Ix> 
2562 # NICHT_VORHANDEN xxS> 319m — <HJ> 
2578 CLOSE #%1 <HZ> 3288 REM Displaylist erstellen <> 
2588 POP :560# MENUE_NEU <HU> 3218 — <UN> 
2598 ENDPROC <PO> 3222 A=$7888: ADA=AH: ADB=AF+42 <ZL> 
2688 -——- <UR> 3238 POKE A,112:POKE A+%1,248:POKE A+X2, 

261@ PROC AUSSCHNITT <RB> 248 <KF> 
2628 D=USR (58698 ,65) <IF> 3248 FOR I=A+43 TO A+AS+(191#%3) STEP 6 <UZ> 
2659 PMB=112:POKE 54279 ,PMB <UA> 3258 POKE I,sCF <KD> 
2649 PME=PMB#256+1024+214 <PF> 3268 DPOKE 1+71,ADA <ES> 
2459 POKE 559,58 <cH> 3278 ADA=ADA+88 <D6> 
266@ POKE 53256,%9:POKE 53257 ,72 <HB> 3288 POKE_1+73,$CF <XI> 
2670 POKE 784,255:POKE 785,255 <EP> 3298 DPOKE I+ DB <C6> 
2588 POKE 53277,%2 <FH> 3328 ADB=ADB+88 <DH> 
2698 X=7B: Y=78 <PK> 3318 NEXT I <FA> 
2728 AB=8 <SE> 332@ POKE 1,45 <ur> 
2718 MOVE ADR(LEER$) ‚PMB-214,256 <TI> 3339 DPOKE I+%1,A <HR> 
2729 MOVE ADR(LEER$) „PMB+256-214,256 <2c> 3348 A=$7CDB: ADA=AF : ADB=AH+48 <EN> 
2738 POKE 87,9:DPOKE 88,AH:COLOR 8 <BP> 3358 POKE A,ii2:POKE A+%1,112:POKE A+42, 

27408 AA=AECKE: BB=BECKE: SPALT=SEITE/88 <BA> 248 <In> 
2758 REPEAT <FD> 33568 FOR I=A+43 TO Ar43+(191#%3) STEP 6 <VH> 
2768 POKE AH,72 <UH> 3378 POKE I,$sCr <KL> 
2778 MOVE AH,AH+X1,968 <1v> 3388 DPOKE I+%1,ADA <FA> 
2788 TEXT %8,722,STR$ (AECKE) <DA> 3399 ADA=ADA+82 <D0> 
2798 TEXT %8,8,S5TR$(BECKE) <IaL> 3428 POKE 1+43,$CF <HO> 
2888 TEXT %8,16,STR$ (SEITE) <PH> 341@ DPOKE I+4,ADB <Bn> 
2818 A=STICK (%2) <3J> 3428 ADB=ADB+88 <DP> 
2828 IF STRIG(22) <X6> 3450 NEXT I <FI> 
2839 X=X+(A&LB=7B) - (ALd=ı0) <HR> 3448 POKE 1,65 <X6> 
2849 Y=Y-(A&U2=72) + (AKZI=I) <PT> 3458 DPOKE I+%1,A <GE> 
2858 IF X<%2 THEN X=%28 <ax> 3460 BLOAD "D:C0L256.BIN":REM Grafikerwe 
28658 IF X+AB>82 THEN X=X-%1 <ıX> iterung laden ” <EF> 
2878 IF Y<%XB THEN Y=78 <SF> 3478 ENDPROC <PH> 
2888 IF Y+AB>82 THEN Y=Y-%1 <L6> 3480 — <un> 
2898 ELSE <um> 

2908 AB=AB+ (ALB=7.9) - (AL4=XQ) <KH> Listing. »Apfel256« (Schluß) 

100902 PROC FARB2S&_INIT <VB> 10138 A=$7880: ADA=AH: ADB=AF+48 <HP> 
12218 REM Grafik mit 256 Farben <EO> 10148 POKE A,112:POKE A+%1,248:POKE A+Z2 
10828 REM Aufruf mit D=USR ($6908,56TIAMode ‚248 <Z$> 
> <BF> 12158 FOR I=A+%5 TO A+%5+(191%75) STEP & <ZD> 
12832 REM Ausschalten mit D=USR($6BB,B) <CX> 12162 POKE I,sCcr <SH> 
12048 REM Helligkeitsbild bei AH=$8218 <HN> 18172 DPOKE I+%71,ADA <HA> 
12258 REM Farbbild bei AF=sAg1® <PL> 18180 ADA=ADA+22 <L6> 
1900652 AH=$8919: AF=sABıD <VI> 18198 POKE I+%3,$CF <LF> 
12878 POKE AH,%B:MOVE AH,AH+Z41,$S1DFF <TU> 18290 DPOKE I+4,ADB <Q2z> 
12@82 MOVE AH,AF,s1ED® xXH> 12218 ADB=ADB+88 <LD> 
18898 POKE 106,128:REM Speicher schuetze 18228 NEXT I <FX> 
n <20> 18258 POKE 1,65 <DB> 
18180 — <yuf> 1@248 DPOKE I+21,A <2z> 
10112 REM Display-List aufbauen <ve> 

18128 -— <In> Listing. »FARB 256« 
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19259 A=$7CQB: ADA=AF: ADB=AH+40 <SF> 
19260 POKE A,112:POKE At%1,112:POKE A+72 

+248 <ra> 
18270 FOR I=A+Z3 TO ArZ3+(1918%5) STEP & <Z0> 
18288 POKE I,$Cr <TH> 
10278 DPOKE I+41,ADA <uL> 
18588 ADA=ADA+82 <K6> 
18318 POKE I+73,sCF <KF> 
10328 DPOKE I+4,ADB <RK> 
18338 ADB-ADB+82 <1L9> 
19548 NEXT I <61> 
18358 POKE 1,65 <oH> 
18368 DPOKE I+41,A:GRAPHICS ® <R6> 
12378 BLOAD "D:COL256-BIN":REM Grafikerw 
eiterung laden <IL> 
12388 ENDFROC <Un> 
Listing. »FARB 256« (Schluß) 

1908 EXEC FARB2S6_INIT <10> 
112 D=USR ($2602,64) <RT> 
128 POKE 196,128 <NE> 
138 COL=S:LUM=6 <on> 
148 DFOKE 88,AH <an> 
158 POKE 87,7 <0E> 
168 FOR I=® TO 79 <AB> 
17® COLOR INT (1/5) <AR> 
18® PLOT I,@:DRAWTO 1,171 <HF> 
198 NEXT I <69> 
228 DPOKE 88,AF <PC> 
218 FOR I=@ TO 191 <DyY> 
228 COLOR INT(1/12) <0X> 
23@ PLOT ®,I:DRAWTO 79,1 <2u> 
248 NEXT I <GA> 
258 OPEN #1,4,8,"K:" <PL> 
262 SET #1,J:CLOSE #1 <RU> 


278 D=USR (5B698,0) <CT> 
289 GRAPHICS B:END <IH> 
298 —— <av> 
388 PROC FARB2S6_INIT <PB> 
312 AH=$8D1@:AF=$ADIO <H0> 
328 POKE AH,%®:MOVE AH„AH+%1,$1DFF <SH> 
538 MOVE AH,AF,sS1EB® <IE> 
342 POKE 186,120 <HK> 
358 A=#789@: ADA=AH: ADB=AF+42 <06> 
362 POKE A,112:POKE A+21,240:POKE A+42,2 

48 <HR> 
378 FOR I=A+43 TO ArA3r(1918%43) STEP 6  <SU> 
388 POKE I,$CF <D9> 
39@ DPOKE 1+%1,ADA <PI> 
400 ADA=ADA+38 <un> 
410 POKE I+A3,sCcF <KR> 
428 DPOKE I+4,ADB <NI> 
438 ADB=ADB+88 <XK> 
440 NEXT I <6c> 
458 POKE 1,65 <su> 
468 DPOKE I+%41,A <Ds> 
470 A=$7C00: ADA=AF : ADB=AH+48 <su> 
480 POKE A,112:POKE A+%1,112:POKE A+%2,2 

+8 <UX> 
4908 FOR I=A+73 TO A+A3+(191*%3) STEP & <SZ> 
S@@ POKE I,scr <cv> 
512 DPOKE 1+%1,ADA <ov> 
528 ADA=ADA+88 <HR> 
530 POKE I+43,$CF <KH> 
542 DPOKE- I+4,ADB <NN> 
55@ ADB=ADB+88 <XP> 
568 NEXT I <CH> 
578 POKE 1,65 <SZ> 
588 DPOKE I+41,A:GRAPHICS ®@ <aN> 
598 BLOAD "D:COL256.BIN" <LD> 
622 ENDPROC <KI> 
Demonstrationsprogramm für 256 Farben 


Zeichensätze selbstgestrickt 


Benötigen Sie für Ihr Programm ein Copyright- 
Zeichen? Kein Problem. Mit unserem Programm 
lassen sich Zeichen einfach selbst entwerfen und 
in eigene Basic-Programme einbinden. 


tellen Sie sich folgende Szene vor: Sie sitzen an 

Ihrem Computer und tippen gerade die letzten Zeilen 

Ihres neuen Programmsein. Dadurchfährt es Sie wie 
ein Blitz: Sämtliche Umlaute in den begleitendenden Bild- 
schirmtexten haben Sie als »ae«, »0e« und »ue« eingege- 
ben. Sie taten das ganz automatisch, denn standardmäßig 
hat. der Atari Computer keine Umlaute auf der Tastatur, und 
im Laufe der Zeit schreibt man halt die Umlaute nach 
Kreuzworträtsel-Schema. Nur, schön sieht das natürlich 
nicht aus. 

Der Atari hat zwar einen zweiten Zeichensatz eingebaut, 
und dieser enthält auch jede Menge verschiedener Son- 
derzeichen. Das deutsche »B« ist jedoch nicht vorhanden. 

Konstruieren lassen sich die Zeichen mit einem Zeichen- 
satzprogramm. Und genau so etwas wollen wir Ihnen hier 
vorstellen: Ein Programm, mit dem Sie völlig problemlos 
eigene Zeichen malen und Zeichensätze in eigene Pro- 
gramme einbinden können. 

Das Programm besteht aus zwei Teilen. Der erste Teil, 
das Hauptprogramm, ist in Turbo-Basic geschrieben. Die- 
ses Programm benötigt ein weiteres in Maschinensprache 
geschriebenes Programm, das wir als AMPEL-Listing 
gedruckt haben. Speichern Sie es bitte auf der gleichen 
Diskette wie das Hauptprogramm. 


Wenn Sie den »Char-Maker«starten, sehen Sie nach kur- 
zer Zeit das Menü. In der linken oberen Ecke befindet sich 
das Fenster zum Malen der einzelnen Zeichen. Gleich dar- 
unter steht der Code des gerade bearbeiteten und im Fen- 
ster sichtbaren Zeichens. Unter diesem erscheint eine 
Anzeige, die Auskunft über die gerade eingeschaltete 
Farbe gibt, sowie eine Zeile, die über die verwendete Gra- 
fikstufe informiert. 

Gleichzeitig leuchtet nach dem Starten des Programms 
in der oberen linken Ecke des Bildschirms ein Quadrat auf. 


2172:22 2a 08 08 
2178:29 2a aa aa 

2182:22 22 22 28 

2188:20 20 2o mo 

Gaaa:FF FF @0 80 BO 89 ac 49 <B9> 2192:20 22 20 00 
Q@099:83 AC 53 86 4C C7 86 AC <9C> 2198:20 28 20 2@ 
@B10:4A 87 4C 73 87 4C DC 87 <17> B1A2:22 2a 2a @0 
Q@18:4C 32 88 4C FA 83 4C BC <52> @1AB:BA AB B7 4B 
Q@020:89 4C AS 88 4C DI 88 4C <44> Q1B2:4C 99 18 &D 
@028:D1 88 4C Di 88 4C DI 88 <EB> @1B8:68 AE 78 82 
9039:4C DI 88 4C D1 88 4C DI <66> @1C2:21 DO 21 88 
@038:88 20 20 DO 2a 20 aa aa <7C> @1C8:@1 CB EC SA 
0242:00 00 02 2Q 20 22 20 am <a0> 2109:27 84 D® 21 
@048:00 20 DD 2U 20 2Q 2a Da <48> @1D8:D8 21 ca 98 
Q050:00 80 Di 20 D2 2a 85 Ba <2E> G1EB:6@ AD SS 80 
9058:03 FÜ 9@ 9@ FO 9® AB F@ <BS> Q1E8:3@ An AD 34 
42 20 Q@ 02 02 <DD> B1F@:69 10 AB 68 

02 @2 ©2 @2 ®@2 <68> BLFE:SD 80 20 DB 

@2 @2 @2 02 AB <@e> @200:D@ 25 A9 08 

80 82 ®2 @2 @2 <BE> 2228:3D 80 DO @C 

41 59 02 08 Q@ <5B> @212:88 EC SC 88 

28 21 32 @D 2D <a@> @218:38 6@ AD 47 

32 28 00 08 00 <BS> @220:88 8D 47 00 

2a 20 20 an @B <Ac> 0228:6D 4A 80 AE 

ao 2a oo aa aa <FB> 2250: 18 6D 4A 88 

00 0© D® m® ma <an> @258:00 AB 02 86 

22 00 20 08 @@ <BB> @248:57 88 85 CC 

20 20 20 0a 0® <Ba> 8248:49 @@ 91 CB 

2a 20 00m 20 @@ <ca> 9252:F9 AC 48 88 

a2 ao a0 am am <ca> 8258:CB C8 CA 19 

20 20 @0 @@ @0 <na> 2260: 8E 20 DB 60 

22 aa aa am aa <na> @268:14 48 29 19 

20 20 2a 20 @m <E@> @278:FF 48 68 29 

QUEU:DU 80 DU DO 2a 2a aa ma <Ea> @278: AD 35 88 D® 
ABF2:00 OD 2O 20 20 @Q 2Q 2 <Fa> @288:C9 er F@ oA 
BUFa:20 2a 2a DM 2m 2a QM BO <Fa> @288:05 EE 95 88 
2102:00 ©® ©@ 20 DU 2@ 2Q 2 <a2> @298:8D 95 80 AD 
2108:00 20 02 @@ 20 20 20 2a <an> @298:88 AD 95 20 
Q112:20 20 2a 2a 2m ma ma ma <12> @2AB:AF 40 OD 95 
Q118:00 0D 0@ 2O 2D 2O 20 @@ <ıa> @2A8:14 4A 90 B8 
2120:00 20 20 20 BG 22 2G 2@ <22> @ZBQ: 1A AD 47 80 
Q129:02 20 2® DO 20 2m 2m mm <2a> @288:AD 34 88 C9 
2130:20 20 22 22 22 DR @2 a2 <32> 82C8:35 88 c9 87 
2158:00 20 2Q DU DO 2U 2a @B <Sa> @2C8:aD 78 02 AE 
2142:2Q @@ 2Q 0m 2Q ma ma ma <a2> 92D8:88 28 EE 81 
Q148:00 20 2Q 2D 2O 28 20 Da <an> @2D8:81 SE Sc a0 
2159:20 20 2a 20 2@ 20 am ma <S2> 22E2:0@ ED 94 88 
Q158:020 2® DO 20 2@ 2a ma mm <sa> Q2E8:11 AD 33 80 
2160:20 @0 22 2@ 2a 2a 2a 2@ <62> @2F@:AD 34 80 C9 
Q168:00 CO 2U 2m ma ma ma ma <an> Q2F8:94 80 18 AD 


SD 4A <EF> 
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2449: BO 
2438:89 
2450: A2 
2458:26 
Q46B:CC &D 38 
Q46B:BE OA DA 
2470:DB 18 69 
2478:69 @0 8D 
B480:8A 48 A2 
Qa88:24 BD 9% 


ABSSBBALERN 


Das ist der Cursor des Programms. Mit ihm werden die ein- 
zelnen Menüpunkte ausgewählt. Wenn Sie jetzt einen Joy- 
stick an Port 1 anschließen, können Sie den Cursor mit dem 
Joystick über den gesamten Bildschirm bewegen. Fahren 
Sie einmal über einzelne Menüpunkte hinweg. Sie sehen 
dann, daß die Menüpunkte, über denen der Cursor gerade 
steht, invers dargestellt werden. Indem Sie den Joystick- 
knopf drücken, wählen Sie den jeweiligen Menüpunkt an. 
Die einzelnen Menüpunkte bedeuten folgendes: 

Eingabe: Damit läßt sich ein Zeichen aus dem Zeichen- 
satz in den Zeichenbildschirm kopieren, um es zu verän- 
dern. Nachdem Sie diesen Menüpunkt angewählt haben, 
erscheint unter der Codezahl ein kleiner Pfeil. Indem sie 
den Joystick dann hinauf- oder hinunterdrücken, läßt sich 
die Codezahl abwandeln. Der Pfeilistauch nachrechts und 
links verschiebbar, um die Zehner- und Hunderterstellen 
der Codezahl zu verändern. Durch Druck auf den Joy- 
stickknopf beenden Sie die Eingabe, und das ausgewählte 
Zeichen erscheint im Zeichenfenster. 

Nächstes Zeichen: Mit diesem Menüpunkt wählen Sie 
das Zeichen mit der darauffolgenden Codezahl aus und 
holen es vom Zeichensatz ins Zeichenfenster. 

Lösche Zeichen: Das Zeichen mit der ausgewählten 
Codezahl wird gelöscht. 

Kopiere Zeichen: Kopiert ein über die Codezahl aus- 
wählbares Zeichen an die gerade bearbeitete Stelle des 
Zeichensatzes. 

Lösche alles: Löscht den gesamten Zeichensatz. 

Intern. Zeichensatz: Hiermit kopiert man den Atari- 
Zeichensatz mit den internationalen Sonderzeichen in den 
Arbeitsspeicher des Programms. 
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Standardzeichen: Wie oben, nur mit dem normalem 
Zeichensatz. 

BSAVE: Speichert einen Zeichensatz auf Diskette. 

BLOAD: Lädt einen Zeichensatz von Diskette. 

Directory: Zeigt das Inhaltsverzeichnis der Diskette an. 
Gleichzeitig läßt sich ein Zeichensatz wie bei BLOAD 
laden, indem der jeweilige Directory-Eintrag mit dem Cur- 
sor ausgewählt wird. 

Spiegeln: Das Zeichen im Zeichenfenster wird gespie- 
gelt, wobei zwei Spiegelachsen zur Verfügung stehen. 
Diese werden durch Hoch-Nieder- oder Links-Rechts- 
Bewegung mit dem Joystick ausgewählt. 

Invers invertiert das Zeichen im Zeichenfenster. Helle 
Punkte werden in dunkle und dunkle Punkte in helle Punkte 
umgewandelt. 

Verschieben: Verschiebt ein Zeichen in der angegebe- 
nen Richtung. Die Richtung wird durch den Joystick ausge- 
wählt. Bildschirmpunkte, die aus dem Zeichenfenster hin- 
ausgeschoben werden, kommen am gegenüberliegenden 
Rand wieder zum Vorschein. 

Graphics 0 stellt den gesamten Zeichensatz in dieser 
Grafikstufe dar. Ein Zeichen besteht aus acht mal acht 
Punkten. 

Graphics 1 stellt den Zeichensatz in Grafikstufe 1 dar. 
Ein Zeichen besteht ebenfalls aus acht mal acht Punkten. 
Eine extra Anzeigemöglichkeit für Grafikstufe 2 ist nicht ein- 
gebaut, da die Zeichen dort zwar doppelt so hoch darge- 
stellt werden, ansonsten aber genauso aufgebaut sind wie 
in Grafikstufe 1. 

Graphics 12: In einem Zeichen lassen sich jetzt vier Far- 
ben darstellen. 


0490:10 F7 68 AA 28 69 84 48 <D9> 

@498:8N 48 AE 2F 02 CA BE 0O <E6> 

QsAQ:D& AD 58 89 99 02 3D 99 <as> 

@AAB:D4 ED OA D4 A2 04 ED ID <AE> 

Q4BQ:99 9D 16 DB CA 18 F7 68 <D4> 

@4BE:AN 20 67 84 48 AD 58 80 <an> 

Q4CQ;9D OA D4 ER BD 99 D4 20 <a2> 

@4C8:69 84 48 AD 58 80 09 82 <D2> 

Q4D0:8D OA D4 ER BD 89 D4 20 <33> 

@4D8:69 84 48 A9.11 @D 6F 02 <66> 

Q4EQ:A? FF SD 09 DB SD GA DB <B7> 

@4EB:ED @B DO 8D @C DO A9 S@ <Er> 

Q4FQ:8D Q1 DO SD @2 DO SD 95 <aD> 

@4FE:DO 8D 27 DO A9 58 ED Q6 <B6> 

0522:D02 A? 40 SD 25 D@ A9 48 <SE> 

@S@8:8D 24 DD EE 35 B@ AZ @@ <as> 

0518:2@ Al 81 20 SC 85 AZ Bl <1B> 
Al 81 2® 8C 85 A2 02 <24> 
Al 81 28 8C 85 A2 85 <aD> 
Al 81 2@ &C 85 A2 00 <92> 
Al 81 A? FF AD 19 91 <88> 
C8 CO 38 DD F? AP 18 <s8> 
94 80 AD 38 80 FB 85 <15> 
48 8D 94 88 AB SC A9 <25> 
2D 94 3@ 20 96 85 AZ <06> 
20 Al B1 AD 40 A? Am <Ba> 
94 82 22 96 85 AZ ®2 <C1> 
A1 81 AD 44 A9 40 2D <@6> 
32 22 96 85 A2 85 20 <aa> 
81 AD 4@ A9 1@ 2D 94 <ır> 
28 96 85 A9 40 AD 48 <a9> 
94 80 2® 96 85 CE 35 <AB> 
60 AB 7F A? BO 91 CB <12> ım 
10 FB 68 A2 83 91 CB <aD> 
CA 1B FA 68 AE 38 88 <ac> 3D 
16 8E 38 80 BE SC 80 <D2> Er] 
46 80 F® 82 49 FF 8D <F2> 87 
88 49 FF 8D SA 80 6D <@E> Ac 
@3 AB 20 SC SA 88 EC <28> 6 
88 8C SC 8@ EC SD Bm <ac> @ AB 8A 
29 CD 48 49 CO DO B6 <74> 8760:80 76 80 BE 
19 86 18 90 1B 60 48 <71> 8768:88 8D 7A 88 
808 FO 86 28 ZA 86 18 <BA> 2770:7C 08 SE 78 
Gr 68 48 29 40 FB B6 <18> 8778:60 68 EE 35 
IB 96 18 98 @5 28 SC <AB> 2780:26 84 AQ 87 
68 ED @@ F® ıF BE SA <AD> 0788:CB 20 72 87 
QE SA 8@ GE SB 80 BE <87> @790:CB 88 19 FQ 
80 @E SC 88 BE SC 80 <45> 2798: AE 38 80 DO 
ID 80 GE SD 80 68 BA <09> @7AQ: 18 9@ 05 20 
48 CA 10 B4 68 68 AD <1E> @7A8:07 ED SB &0 


SD 88 AD <41> ZA CA 190 F9 60 A2 85 <or> 
SA 80 60 <82> SB 88 A? 38 8D SC 88 <e1> 
8D SC 99 <85> 3B 88 29 CB OD SC 88 <A1> 
8D 5A 8@ <D®> SC 80 EB 88 FO OF BE <24> 
83 '8D SB <AF> 88 BE IB 88 4E SC 80 <F7> 
FC 8D SA <SB> 3C 88 CA 10 E2 AD SC <C6> 
09 Q3 8D <20> 60 68 EE 35 88 68 68 <56> 
35 80 68 <AE> 26 84 AB 87 BI CB AE <C9> 
CB 85 CD <#B> 80 DO 85 49 FF 18 98 <B> 
02 8C SF <BC> 20 FF 87 91 CB 88 10 <AA> 
80 AC SF <21> CE 35 80 68 A2 03 8D <64> 
85 A2 D@ <ıB> 8@ A? 08 BD SB 80 AD <2F> 
80 AD SA <ar> 8@ 18 DB 69 40 2A 2A <AE> 
@1 20 a1 <ca> 29 @3 @D SB 80 &D SB <a6> 
35 88 20 <D5> E@ 90 F@ OF BE SB Do <On> 
Ai Bı AC <97> 38 88 BE SA 80 BE SA <EO> 
20 96 85 <74> CA 18 DB AD SB 88 68 <i9> 
AC 49 88 <aB> EE 35 88 68 68 8D 3A <C6> 
85 AD 49 <Da> 68 68 8D 3B 88 AD SA <6F> 
40 88 EE <an> 20 24 84 &8 68 8D SC <61> 
c9 08 na <Ds> AD SC 88 F@ 11 AD 07 <E6> 
68 35 <DA> CB 28 65 88 91 CB 88 <AA> 
80 68 68 <85> F& CE SC 8@ DB EA CE <48> 
8D SC 88 <cc> 88 &@ AE SB 88 DB BC <ıD> 
AD 3A 88 <BF> 82 88 AE 38 88 FB 085 <AF> 
890 Bi CB <65> 82 88 68 20 86 88 AE <F8> 
aC AE SB <B2> 99 F@ 25 28 56 55 6m <a0> 
28 87 18 <IE> 69 88 &D 4A 90 82 089 <97> 
29 ai AE <55> 62 68 EE 355 88 68 68 <AS> 
AB EB AD <71> 26 84 85 DI AS CB 85 <209> 
28 87 20 <98> AS CC 85 DS CE SS 88 <71> 
68 B1 82 <Ba> 68 EE 35 88 68 48 85 <c9> 
89 FE FD <28> A9 80 85 CB 85 CD AD <EB> 
7F ED 40 <86> 80 85 CE a9 FF aD a1 <as> 
8D 41 88 <76> A2 84 AD 88 Bi CB 91 <1A> 
AD 41 80 <BD> 88 DB F? E6& CC E6 CE <Cc2> 
89 AD #1 <AF> D® F2 CE 35 88 88 58 <E5> 
91 CB 68 <9B> 20 28 20 29 20 DD 2a <78> 
68 AA 89 <7C> 20 90 2m 2a Da ma Da <FR> 
8C 73 88 <aB> 20 20 200 20 20 DO DU <Far 
77 88 BE 79 <3A> 22 20 2a za mm Du mu <an> 
BE 7B 80 BE <71> 22 290 DD 20 au DD Da <aa> 
8@ CE 35 89 <62> 20 00 28 20 20.00 DR <ı2> 
80 68 68 20 <26> 
SC SA 80 Bi <Fa> 
AC SA 80 91 <ES> 
en Listing. »CHAR.OBJ« wird vom 
BO 87 60 A2 <F3> Char-Maker benötigt. Bitte mit 
A9 00 4E SB <c7> AMPEL eingeben. 


Lösche Teil: Damit läßtsich ein beliebig langer Block von 
Zeichen aus dem Zeichensatz löschen. Mit der Codezahl 
werden das erste und das letzte zu löschende Zeichen aus- 
gewählt. 

Lade Teil: Aus einem auf der Diskette vorhandenem Zei- 
chensatz wird ein beliebig langer Teil in den gerade bear- 
beiteten Zeichensatz geladen. Das erste und das letzte zu 
ladende Zeichen wird über die Codezahl ausgewählt. 

LIST: Mit diesem Befehl läßt sich ein beliebiger Teil aus 
einem Zeichensatz in ein Basic-Programm einbauen. Das 
Programm fragt dann, an welcher Speicherseite es stehen 
soll (siehe auch Beitrag »Die Handschrift des Computers« 
in diesem Heft). Dann wird nach dem ersten und letzten zu 
übertragenden Zeichen gefragt. Wollen Sie den gesamten 
Zeichensatz übertragen, so geben Sie 0 und 127 ein. 
Anschließend folgt die Frage, ob ein zweiter Block mit Zei- 
chen gespeichert werden soll. Diese beantwortet man mit 
»ja«, indem man den Joystickknopf drückt, oder mit»nein«, 
indem man den Joystick hinauf oder hinunter bewegt. 
Dann folgt die Frage nach der ersten Zeilennummer im Pro- 
gramm sowie nach der Schrittweite der Nummern. Zuletzt 
fragt das Programm nach dem Namen, den es dem File 
geben soll. Auf der Diskette wird dann ein ASCII-File unter 
dem angegebenen Namen gespeichert. Dieses wird mit 
dem »ENTER«-Befehl in ein Basic-Programm eingebun- 
den. Das auf der Diskette erzeugte File enthält gleichzeitig 
ein Ladeprogramm, das den Zeichensatz unter Basic 
installiert. 

Farben verändert die gerade ausgewählte Farbe. 

Ein Zeichen editiert man, indem man mit dem Cursor ins 
Zeichenfenster fährt und dort durch Druck auf den Joy- 


stickknopf Punkte setzt oder löscht. Ein Zeichen läßt sich 
zusätzlich auswählen, indem Sie mit dem Cursor auf die 
Codezahl fahren und den Knopf drücken. Sie erhalten dann 
die gleiche Funktion wie beim Menüpunkt »Eingabe«. 
Tritt beim Laden oder Speichern auf Diskette ein Fehler 
auf, so wird die Fehlernummer unter den Menüpunkten 
gezeigt. Um mit dem Programm fortzufahren, müssen Sie 
dann den Joystickknopf drücken. (Thomas Richter/hf) 


Steckbrief 
Programm: ] Char-Maker 
Sprache: Turbo-Basic 


Eingabehilfe: 
Datenträger: 


Prüfsummer und AMPEL 
Diskette 


2 DPOKE 566 ,DPEEK (528) 
5 TRAP S:CLOSE #1:0PEN #1,4,9,"D:CHARS.O 


xor> 


BJ":CLOSE #1 <DH> 
1@ GRAPHICS @:POKE S59,9:DLO=DPEEK (569) : 
PAUSE 2: COL=$8995B <HB> 


15 POKE COL,@:POKE COL+1,1@:POKE COL+2,B 
:POKE COL+4,2 

2@ BLOAD "D:CHARS.0BJ":POKE 559,34 

5@ POKE $8958,sAB:POKE SADRB,B:MOVE SAQD 


<89> 
<Y6> 


Listing. »CHAR.BAS«, bitte mit Prüfsummer eingeben 
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2,5AQ81 ,$QOSFF 
42 U=USR ($8888) : MCO=3: GRAF=B: AS=32: POKE 

7@5,$32:POKE 711,@:POKE 706,$76:POKE 707 
„1A 

5® POKE 756,$CC:SETCOLOR @,8,6:SETCOLOR 

4,8,0:DIM F$(20) „FIS(28) „H$(48) ‚AN(16) „E 
N(16) „ANAD(16) „ENAD(16) 

68 EXEC MENUE: YA=-i:EXEC GAB 

65 — 
7@ X=PEEK ($8853) : V=PEEK (48034) : XH=11+18* 
(X>28) :POKE 77,0 

82 IF X<8 AND Y<8 THEN G0# ZEEID 

81 IF Y=9 AND X>=5 AND X<=7 THEN X=11:Y: 
2:60T0 122 

98 IF (Y<2 OR Y>11) OR (X<11 OR (X>26 AN 
D %X<29)) THEN IF YA>@zU=USR ($8915,XA,YA, 
1145* (XA<29)):YA=-IzENDIF :G0TO 112 

182 IF Y<>YA AND YA>-i THEN U=USR (58215, 
XH,YA,11+5% (XAC29) ) :U=USR ($8015, XH,Y,11+ 
Sx# (XH£29) ) : XA=XHz Yı 
101 IF Y<>YA AND YA=-1 THEN U=USR($8215, 
XH,Y,1145%* (XH£29) ) : YA=Yı XA=XH 

11@ IF PEEK($DBIF)=S AND STICK(@)=15 THE 
N EXEC FARBUM 

12@ IF STRIG(®)=1 THEN 70 

122 IF tX>=1 AND X<=4) AND (Y>=11 AND Y< 
=14) THEN MCO=Y-11:EXEC GONG: IF GRAF<12: 
MCO=SMCO:ENDIF :EXEC PARAM:GOTO 78 

125 IF (Y<2 OR Y>11) OR (X<11 OR (X>26 A 
ND X<29)) THEN EXEC GONG:GOTO 79 

130 MN=(Y-2)+1@* (X>28) +1: PAUSE B:EXEC 60 
NG 

135 IF STICK(@)<1S THEN 70 

148 ON MN EXEC EIN,NAE,LOE,KOP,ALO,INE,S 
TA,BSA,BLO,DIR,SPI,INV,VER,6RB,6R1,6R2,D 
RE,PRO,LIS,END 

158 POKE 77,8:PAUSE S:6010 78 

151 — 

152 # NEWPO:U=USR ($8Q15,XA,YA,1145# (XA<2 
9)) :XHN=11+18%* (XN>28) = U=USR ($8Q15, XHN,YN 
„1145%* (XHN<29)):G0TO 78 


A=-1: YA=-1 

=PEEK ($8053) : V=PEEK ($8834) 
188 IF X>7 OR Y>7 THEN YA=-1:60T0 70 

185 IF STICK(®)=15 AND PEEK($DBIF)=5 THE 
N EXEC FARBUM 

198 IF STRIG(B)=1 THEN 178 

195 BW=MCO: IF GRAF<>12 AND MCO=3 THEN BW 
=1 

196 IF GRAF=12 THEN U=USR ($82Q6, AS, (7-X) 
-1,Y,BW) :60T0 218 

282 U=USR ($89286,A5,7-X,Y,BW) 


=% 

222 G0T0 178 

I — 

1882 PROC MENUE:POKE 752,1:POKE 82,8:POK 
E 85,39: POKE 87,0:? "{ESC CTL <<)" OSIT 
ION 8,8 

1218 ? "1..von„THOR-Softwares (c) 1986/87 


uzu 
"SLAEingabeauasausss si Spiegeln" 
"ALANICTL Kichstes.Zeichena«Inver 


1250 ? " 
hieben"; 
"64.KopieresZeichen“.Graphics.a" 
"7=-AL{CTL O}schesalles..ı...Graph 


mmL{CTL O}schesssZeichen“„Versc 


"SauIntern. „ZeichensıGraphics.12 
10902 POSITION 0,8:7 "87654321...Standart 
zeichens“xL{CTL Odsche-Teil"; 

110® ? "AuBSAVELLLLLLL LU LadesTeil" 
1110 ? "ASSBLOADAAAA AL IST" 

1120 ? "ıuuDirectoryinnnaans Farben" 
1121 POSITION 8,16:7° 


218 U=USR ($9883,AS):POKE $DRIF,D:XA=X:YA 


1139 EXEC PARAM=ENDPROC 
1142 PROC PARAM:FOR I=11 TO 14:POSITION 


2,13? "anna"zsNEXT I 

115® POSITION 8,9:? "Cod ZVL=AS:EXEC 
PRIN 

1168 POSITION 8,15:? "Modus: "3GRAFZ"au": 


1178 
1188 
1198 


POSITION 18,14:? 
IF GRAF=® OR GRAF=1 
POSITION 4,11+(MC0=3):? "IESC ESCHT 


KeinesFehler-" 


OSITION 2,11+MC0:? "{ESC ESC 
33ENDIF 


IXESE CTL +3 
121® ENDPROC 


122@ PROC PRIN: van" 
1238 FS=STR$ (VL) HS CA-LEN (FE) ISF$:? Hz: 
ENDPROC 

1249 PROC FARBUM: IF GRAF=B OR GRAF=1 
1258 POSITION 4,11+(MCO=3):7 "s 
ELSE :POSITION 2,11+MC0:? " 


5 

=";2ENDI 

MCO=MCO+1+2%* (GRAF< >12) 

IF MCO>S THEN MCO=: 

EXEC PARAM:EXEC GONG=:ENDPROC 

PROC GONG:FOR I=15 TO @ STEP -1:S0oU 

ND 8,122,12,1:SOUND 1,121,1@,I:PAUSE Q:N 

EXT I:ENDPROC 

1318 PROC PLOF:POKE $8835,1:POKE 53248,8 
3ENDPROC 

1328 PROC PLON:POKE $8935,@: ENDPROC 

133@ PROC SHURE 

1342 SOUND 8,60,18,1@:REPEAT :UNTIL STRI 
Sw=1 

1358 POSITION 11,17:? "Sanz«sicher?(Feue 

YE=@: PAUSE 3 

@ TO 9 STEP -8.2 

SOUND 2,144,10,1:SOUND 1,145,18,1 
IF STRIG(@)=@ THEN YE=1:EXIT 

IF STICK (@<>1S THEN EXIT 

PAUSE B:NEXT I:SOUND 8,2,@,8: SOUND 
1,8,0,8 

14@5 REPEAT :UNTIL STRIG(@=1 

1418 POSITION 8,17:? "(ESC SHIFT >{ESC 
SHIFT DELITESC SHIFT DELY";zIF YE=® THEN 
POP :POP :60T0 7@ 

1420 ENDPROC 

1450 PROC DISKIN:DPOKE S68,DLO:POKE $D48 

E,$48:SETCOLOR 4,3,4:SETCOLOR 2,0,18:SET 
COLOR 1,0,0 

1458 POKE 82,8: POSITION 9,19 

1470 ? "sans sDiskettenzugrif itte 
1480 ? "“4..JeinensAugenblick-Geduldaa!" 
1508 POKE 82,8:POSITION 8,2:EXEC PLi 
1518 ENDPROC 

1528 PROC DISKOU:U=USR ($890B) :EXEC PLON: 

SETCOLOR 4,8,0:SETCOLOR 9,8,6 

1521 POSITION @,18:? "<ESC SHIFT >2<ESc 

SHIFT DEL}LESC SHIFT DELILESC SHIFT DEL> 
{ESC (SHIFT DELITESC SHIFT DELITESC SHIFT 
DELITESC SHIFT DELI{ESC SHIFT DELY"5:U= 

USR (59283 ,AS) : ENDPROC 

1538 PROC FILEIN:POKE 752,2 

1542 TRAP 1542: POSITION 0,17:? "{ESC SHI 

FT >ICESC SHIFT DELITESC SHIFT DELI"; 
15S® POSITION 11,17:? "FilenamesDi:"; 
156 INPUT "{ESC CTL #>CESC CTL +3",Fs:r 
I$="D: ":FIS(3)=F$:POSITION 9,17:7 "{ESC 

SHIFT >ICESC SHIFT DEL>{ESC SHIFT DELY“; 
:TRAP 4BQAB:POKE 752,1:? "{ESC CTL #I{ES 

© CTL +2"; zENDPROC 

PROC BESENI:ASS=AS 

POSITION 11,17:? "Erstes..Zeichen" 
EXEC EINzAN=AS 

POSITION 11,17:? "LetztessZeichen" 
EXEC EIN:EN=AS: AS=ASS: POSITION 5,9: 
:EXEC PRIN 

ANAD=USR ($8818,AN) : ANI=PEEK (289) 

ENAD=USR ($8818,EN) :ENI=PEEK (209) 

POSITION 11,17:7 "<ESC SHIFT >> CESC 

3:ENDPROC 


1642 
SHIFT DELI{ESC SHIFT DELY 


2802 PROC EIN:EXEC PLOF 
2818 H$=STR# (AS) 


FISL 
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(H$) )=H$: PAUSE 2 

2828 PAUSE 2:ST=STICK (2): 
-48:SOUND 2,8,8,8 

2030 IF ST=11 AND X>5 THEN X=X-1: 
1$(X-4))-48 

2848 IF ST=7 AND X<7 THEN X=X+1:W=ASC (FI 
S1X-4))-48 

205@ IF ST=13 THEN WeW-1:IF W=-1 THEN W= 


=ASC(FISX-4)) 


® 

2048 IF ST=i4 THEN W=W+1:IF W=1@ THEN W= 
[J <FO> 

2879 FIS(X-4,X-4)=CHR$ (W+48) : POSITION 5, 
2? FIS 

29888 POSITION X-1,18:? "„tESC ESCH{ESC C 
TL -J2";:1IF ST<>15 THEN SOUND 9,68,18,10 <F6> 


2298 IF STRIG(B)=1 THEN 2928 <D6> 
2@91 AS=VAL(FIS):IF AS>127 THEN EXEC GON 
6:60T0 222® <au> 
2122 U=USR ($8923,AS) :VL=AS:POSITION 5,18 

2? "aaa" SOUND 8,0,8,D:EXEC PLONSENDPR 

oc <DR> 
211@ PROC NAE:AS=AS+1:IF AS=128 THEN AS= 

a <HK> 
2128 U=USR ($89883,AS) POSITION 5,9:VL=AS: 

EXEC PRIN=ENDPROC. sur> 
2138 PROC LOE:EXEC SHURE <sv> 
2148 U=USR ($8918,AS) <vu> 
215@ FOR I=U TO U+7:POKE I,B:NEXT I:U=US 
R($8885,AS) :ENDPROC <MA> 
2168 PROC KOP=POSITION 11,17:7 "Welches, 
Zeichen?" <BQ> 
217@ ASS=AS:EXEC EIN <uL> 
218@ U=USR ($8918,ASS) : V=USR ($8018, AS) <Du> 
2199 MOVE V,U,8:AS=ASS: U=USR ($92B3,AS):P 
OSITION 8,17:? "EST SHIFT >I{ESC SHIFT 
DELI{ESC SHIFT DEL}"::POSITION 5,9:VL=AS 
3EXEC PRIN:ENDPROC <ra> 
228@ PROC ALO:EXEC SHURE:POKE $AB®O,0: MD 

VE $ABAB,sABB1,SaSFF <n6> 
2218 U=USR ($8@23,AS) :ENDPROC <FR> 
222@ PROC INE:EXEC SHURE: U=USR ($801B,$CC 

) :U=USR (489893 ,AS) :ENDPROC <vL> 
2238 PROC STA:EXEC SHURE:U=USR($801B,$E@ 

) : U=USR ($89803 ‚AS) »ENDPROC <Al> 
2249 PROC BSA:EXEC FILEIN:POKE 752,2 <H0> 
225@ TRAP 225@: POSITION 8,17:7 "tESC SHI 

FT >2{ESC SHIFT DELITESC SHIFT DEL>Y"; «var 
2258 POSITION 11,17:? "Inawelche.Page?.9 
SLESC CTL +)CESC CTL +3"; <N6> 
227@ INPUT "LESE CTL #2CESC CTL +3",PG:P 

OKE 752,1 <EN> 
2288 POSITION 8,17:7 "{ESC SHIFT >I{ESC 
SHIFT DEL}TESC SHIFT DEL}"; <ES> 
2298 EXEC DISKIN <S5> 
2S@@ TRAP #ERRO:OPEN #2,8,2,FI$ <FO> 
2318 PUT #2,$FF,$FF,B,PG,SFF,PG+3 <ru> 
23520 BPUT #2,$AB2R, 0428 <XU> 
2538 CLOSE #2:EXEC DISKOU:TRAP 48808: END 
PROC <1J> 
2348 PROC BLO:EXEC FILEIN <aH> 
2558 EXEC DISKIN: TRAP #ERRO <DO> 
2368 OPEN #2,4,@,FI$:GET #2,A,A <rJ> 
23570 IF AtA<>SIB THEN 2400 <acy 
2388 GET #2,A,A,A,A <DX> 
2392 BSEET #2,5A020,$0488 <R6> 
2488 CLOSE #2:TRAP 48080: EXEC DISKOU:U=U 

SR ($8@03,AS) : ENDPROC SAN» 
2508 # ERRO:TRAP #ERRO:CLOSE #2:EXEC DIS 

Kou <TL> 
2518 SOUND 8,12,12,15:SDUND 1,15,12,15 <aoX> 
2528 PAUSE 48:SOUND 0,0,2,0:SOUND 1,0,8, 

B: POSITION 18,143? "AuErrora-a"3ERRS"AuL CAP 
2530 REPEAT :UNTIL STRIG(D)=@ <UK> 
2549 POSITION 18,14:? "41. -KeineFehler 
2578 TRAP 2620: C=® 

"#2 {ESC CTL +}";:BI=DPEEK (88) <uH> 
2588 FOR I=® TO 11:AD=BI+I*40+8:POKE AD, 


@:MOVE AD,AD+1,31:NEXT I:FOR 1=4990 TO 697 


3:POKE 1,255:NEXT I <UB> 
2585 POKE 93,0: E=1 <HA> 
2598 TRAP 2520: INPUT #2,F$:FIs= IF Fst 
2,2)<>"." THEN E=8 <YP> 
2591 TRAP 2592: INPUT #2,FIS <AH> 
2592 IF F$(2,2)="." THEN F$=F$(3) <aUu> 
2593 IF FI$<>"" THEN IF FI$(2,2)3="":FI$ 
=FI$(3):ELSE :POSITION 8,7:7 "{ESC SHIFT 
DELY" sENDIF <rz> 


2480 POSITION 8,C:? F$;""3FI$;2C=C+l:IF 
C>=7 AND E THEN EXEC WIFK:C=9:60T0 2588 <vo> 
2618 60TO 2599 

2628 TRAP 4BBRG:EXEC WIFK:EXEC DISKOU:EX 
EC MENUE:CLOSE #2: YA=- ENDPROC 

2638 PROC WTFK:EXEC DISKOU:POSITION 2,17 
:? "Bittesausw{CTL Kihlen“oder „START«dr{ 
CTL J}cken!"sEXEC DISKCHOI 

2649 REPEAT :UNTIL PEEK($DB1F)=7:POSITIO 
N 2,17:? "tESC SHIFT >I{ESC SHIFT DELITE 
SC SHIFT DELY{ESC SHIFT >3"5:EXEC DISKIN 
zENDPROC 

2658 PROC SPI:POSITION 11,17:EXEC PLOF 
2668 ? "Spiegel XESC ESCIHLESC CTL -}tE 

SC ESCHTESC LTL =)":SP=B 

2678 ST=STICK(@ 

2688 IF ST=15 OR ST=14 THEN SP=2: POSITIO 
N 21,17:7 "tESC ESCITESC CTL -I{ESC ESC) 
{ESC CTL =3":EXEC GONG 

269@ IF ST=7 OR ST=11 THEN SP=1:POSITION 
21,172? "{ESC ESCI{ESC CTL +3{ESC ESCHt 
EST CTL *)":EXEC GONG 

270@ IF STRIG(®)=1 THEN 2678 

2718 IF SP=1 THEN 2758 

272@ U=USR ($8018,A5):MOVE U,$2688,, 
I=@ TO 7:POKE U+I,PEEK (58688+(7-I) 
I 


2738 U=USR ($9283,AS):G0OTO 2768 


2758 U=USR ($8B@C ‚AS) : U=USR ($8003,AS) <D8> 
276@ EXEC PLON:POSITION 8,17:? "{ESC SHI 
FT >3tESC SHIFT DELITESC SHIFT DELI"z:EN 
DPROC <RK> 
2778 PROC INV:U=USR ($8BBF „AS) :U=USR ($802 
3,AS) :=ENDPROC. <xCc> 
2788 PROC VER:SP=B:EXEC PLOF <un> 
2790 POSITION 11,1 "Verschieben: „{ESC 
ESCHLESE CTL -}" <AE> 
2882 ST=STICK«@) <IR> 
281@ IF ST=14 THEN SP=@:POSITION 24,17:? 
"LESC ESCHLESC CTL -I":EXEC GONG <vu> 
2811 IF ST=13 THEN SP=1:POSITION 24,17:? 
"LEST ESCHLESC CTL =}":EXEC GONG <Ya> 


2821 IF ST=11 THEN SP=3:POSITION 24,1 
XEC GONG 
2858 IF STRIG(B)=1 THEN® 2898 

2848 POSITION 8,17:? "{ESC SHIFT >3{ESC 
SHIFT DEL}Y{ESC SHIFT DELY"; 

2858 POSITION 11,1 "Wiesoft?u1 


":OFT= 


2860 PAUSE S:ST=STICK(@):SOUND 9,0,0,0 <UI> 
287@ IF ST=1$ AND OFT>1 THEN OFT=OFT-1 <JU> 
2880 IF ST=14 AND OFT<7 THEN OFT=OFT+1  <LE> 
2898 IF ST<>15 THEN SOUND 9,68,12,18 <19> 
29@8 POSITION 21,17:? CHR$(OFT+48); <HH> 
291® IF STRIG(@)=1 THEN 2848 <PE> 
2920 ON SP+1 EXEC UP,DO,LR,LR <HR> 
29358 U=USR ($BBRI,ASI:EXEC PLON:POSITION 

"{ESC SHIFT >}{ESC SHIFT DELY{ESC 
SHIFT DEL}";:ENDPROC <EU> 
2940 PROC UP:U=USR($8Q18,AS):FOR I=1 TO 
OFT:ASPEEK (U) :MOVE U+1,U,7:POKE U+7,A:NE 
xT NDPROC <ZD> 


2958 PROC DO:U=USR($B218,AS):FOR I=1 TO 
OFT <RO> 
2960 A=PEEK (U+7):-MOVE U,U+1,7:POKE U,As 
NEXT IzENDPROC 


Listing. »CHAR.BAS« (Fortsetzung) 


En 
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2979 
2938 
2998 
3a02 


PROC LR:SW=1 

IF SP=3 THEN Sw=8 

U=USR ($8912,AS,SW,OFT) :ENDPROC 

PROC GRO 

381® U=USR ($8989,2):POKE $8038,8:GRAF=D: 
POKE COL+1,PEEK(7@7):POKE COL+2,PEEK(711 
):POKE COL+4,PEEK (711) 

3815 EXEC CLFAU:ENDPROC 

3928 PROC GRI 

3Q35® U=USR ($8089,6):POKE $8038,0: GRAF=1 

3848 FOR I=COL TO COL+3:POKE I,PEEK (787) 
:NEXT IsPOKE COL+4,PEEK(711):EXEC CLFAU: 
ENDPROC 

3058 PROC GR2 

3868 U=USR($8089,4):POKE $8038,1:GRAF=12 
3078 FOR I=@ TO 2:FOKE COL+I,PEEK(705+1) 
:NEXT I:POKE COL+3,$C8:POKE COL+4,PEEK(7 
11):EXEC CLFAU 

POKE $8249 ‚255: ENDPROC 

PROC CLFAU:U=USR ($8802) 

FOR I=11 TO 14 

IF 1<13 THEN POSITION 4,1:7 
POSITION 2,12? "a"; 

NEXT IzIF (MCO=1 OR MCO=2) AND GRAF 
THEN MCO=3 

EXEC PARAM:PAUSE B:U=USR($8003,AS): 
PAUSE @:ENDPROC 

3149 PROC DRE 

315@ EXEC SHURE:EXEC BEGENI 

316@ POKE ANAD,@:MOVE ANAD,ANAD+1, (ENAD- 
ANAD) -1+7: U=USR ($B@BS,AS) :ENDPROC 


3178 PROC PRO:EXEC BEGENI:EXEC FILEIN 
3199 EXEC DISKIN:TRAP #ERRO 

319@ OPEN #2,4,@,FIs 

3280 GET #2,A,B:IF A+B<>S51® THEN 3322 
321@ GET #2,A,B,C,D 

322® BGET #2,A800,50422 

323® MOVE ANAD+$282B,ANAD ,ENAD-ANAD+7 
330@ CLOSE #2:EXEC DISKOU 

331@ TRAP 40920: U=USR (49803, AS) :ENDPROC 
332® PROC LIS 

333@ POKE 752,@:POSITION 2,17:7 "tESC SH 


IFT >>{ESC SHIFT DEL>I{ESC SHIFT DELY"5:P 
OSITION 11.17:? "Abwelcher«Page?.I6{ESC 
ETL +21ESE ETL +3"; 

3349 TRAP 333@: INPUT "LESC CTL x3XESC CT 
L +2",BEG 

335@ BEAD=BEG+256& 
#2 {ESC CTL +2"5:K=2 
3368 POSITION 8,177 "CESC SHIFT 


:POKE 752,1:? "{ESC CTL 


FILESC 
SHIFT DELITESC SHIFT DELI"5:TRAP 400D0 
3365 IF PEEK($D@B1F)=6 THEN ANAD(K-2)= 


ENAD (K-2)=127:60T0 3418 
3370 EXEC BEGENI:ANAD(K-2 
)=ENAD: AN (K-2) =ANI:EN (K-2 
NAD THEN 3378 

3388 POSITION 8,17:? "{ESC 
SHIFT DELITESC SHIFT DEL>"“ 
7:? K;"tenBlockseingeben? (Knopf, 
ESCI{EST CTL -ITESC ESCHLESC CTL 
n)"3z:EXEC PLOF 

339@ IF STRIG(B)=® AND K<18 THEN K=K+1:G 
OTO 3368 

3480 IF STICK(@)=1S AND K<18 THEN 3390 
3418 POSITION 8,17:? "{ESC SHIFT >>{ESC 
SHIFT DELI{ESC SHIFT DELI"5:TRAP 3410:PD 
KE 752,8 

342@ POSITION 11,17:7 "Startzeilennummer 
2"52 INPUT "{ESC CTL #IXESC CTL +2",ZN 
3438 TRAP 343@: POSITION 8,17:7 "tESC SHI 

FT >I{ESC SHIFT DELITESC SHIFT DELY"; 
3448 POSITION 11,17:7 "Schrittweite: BE 

SC CTL +IXESC CTL +3"; 

345@ INPUT "{ESC CTL #>tESC CTL +3",28:T 

RAP 49000 

3460 EXEC FILEIN 

3478 EXEC DISKIN:TRAP #ERRO 

3488 OPEN #2,8,0,Fls 

349@ ? #25 ZN; "BA=";BEAD; ":RESTORE" ; ZN: ZO 
SZN:EXEC INC 

3588 ? #2; ZN; "READAA: IFAACQTHEN" 5 20+25 


-ANAD: ENAD (K-2 
ENI:IF ENAD<A 


SHIFT >>{ESC 
POSITION @,1 
a, {ESC 
nei 


*S:EXEC INC 
351@ ? #25 ZN; "POKEAAD, Ar AD=AD+1:G0T0."5Z 
0+ZS:EXEC INC 

3520 ? #25 ZN; "IFAA=-IQOO-THENARETURN" EX 
EC INC 

353Q ? #25 ZN; "AD-BA+B#INT (ABS (A) ) :GOTO"; 
Z0+2S:EXEC INC 

3548 FOR J=2 TO K 

? #25 ZN; "DATAL-"3AN(J-2) 


XEC 


AD=ANAD (J-2) :FOR L=AN(J-2) TO EN(J- 


? #25 ZN; "DATA" 
FOR I=2 TO 7 
? #2; PEEK (AD) ; :AD=AD+1 

IF I<7 THEN ? #25","; 

IF I=7 THEN ? #2 

NEXT I:NEXT L=:NEXT J 

? #25 ZN; "DATA.-100B" 

CLOSE #2:EXEC DISKOU:TRAP 43899: END 


sEXEC INC 


PROC INC: ZN=ZN+ZS: ENDPROC 
PROC END: POSITION 11,17 
? "Helligkeit: {ESC ESCHEST CTL ->T 


EST ESCH{ESE CTL =3.Farbe: {ESC ESCHESE 
ETL +3{ESC ESCHLESC CTL #3" 


367@ IF MCO=B THEN REGS=COL-2 

3688 IF MCO>@ AND GRAF=12 THEN REG=7B4+M 
co 

3698 IF MCO>2 AND GRAF<>12 THEN REG=787 
3700 EXEC PLOF 

3718 W=PEEK (REG) 

3728 PAUSE 2:ST=STICK (8) 

37358 IF ST&1=@ AND (W MOD 16)>8 THEN W=W 
-3 

3748 IF ST&2=® AND (W MOD 16)<15 THEN W= 
W+ı 

3758 IF ST&4=2 THEN W=W-16: IF WB THEN W 
=W+256 


3768 IF ST&B=® THEN W=eW+16: IF W>255 THEN 
W=W-256 

POKE REG,W 

"IF STRIG(@)=1 THEN 3728 

IF REG=COL-2 THEN POKE 711,W 

IF GRAF=12 THEN EXEC GR2 

IF GRAF=2 THEN EXEC GRB 

IF GRAF=1 THEN EXEC GRi 

POSITION 8,17:? "{ESC SHIFT >I{ESC 
EXEC PLON:EN 


DPROC 

3848 PROC DISKCHOI: YA=-1:BI=DPEEK (88) 
3858 IF PEEK($SDB1F)=& THEN ENDPROC 

3855 IF STRIG(@B)=2 THEN IF H=@ AND STICK 
(@)=15 AND NOT (X<X8 OR Y>& OR (X>18 AND 
x<24) OR X>34) .THEN 3928 

3868 X=PEEK (55833) : V=PEEK ($8834) 

3865 H=B: XH=8+16# (X>23) :W= (PEEK (XH+4D#Y+ 
BIY)&127:IF WCSS OR W359 THEN H=1 

3870 IF X<8 OR Y>& OR (X>18 AND X24) OR 
H OR X>34 THEN IF YA>=Q:U=USR ($8915,XA, 
YA,i1)zYA=-1:ENDIF :60T0 3852 

3888 IF XA=XH AND Y=YA THEN 3852 

389@ IF YA>=Z THEN U=USR ($8015,XA,YA,11) 
3988 XA=XH: YA=Y: U=USR ($89815,XA,YA,11) 
391@ IF STRIG(@)=1 THEN 3858 

392@ FIS="annnununn ne 

3938 BD=BI+XH+Y#48 

3948 MOVE BD,ADR(FI$S),11 

3958 BD=ADR(FI$):FOR I=BD TO BD+11 

3968 W=PEEK(T) zW= (W127) +32:POKE I,W 
3970 NEXT I 

3988 FOR I=i1 TO 8 

3998 IF FIS(I,I)=".“ THEN EXIT 

40988 NEXT I 

4010 FS(1,I-1)=FIS:FStI,D=". 
I$(9,11):CLOSE #2 

4920 EXEC GONG:FI$="D: ":FI$(3)=F$:POP :P 
OP :EXEC MENUE: YA=-1:60T0 2358 


"FStIHl)=F 


Listing. »CHAR.BAS« (Schluß) 
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Ein toller Malkasten 


Viele Firmen bringen Malprogramme auf den 
Markt, die sich nur in wenigen Details voneinan- 
der unterscheiden. Unser Malprogramm »Grafik- 
Draw« vereint viele Funktionen und besticht mit 
seinen vielfältigen Grafikstufen. 


alprogramme für die Atari 8-Bit-Computer sind 

genügend im Angebot. Von Datasoft gibt es den 

»Micropainter«, Atari und Koala-Soft haben das 
»Atari-Artist«-Programm beziehungsweise den »Koala- 
Painter« herausgebracht, und ein weiteres amerikanisches 
Programm namens »Fun with Art« schaltet auf Wunsch in 
jeder Zeile über einen Display-List-Interrupt die Farben um. 
Ganz zu schweigen von den vielen anderen Malprogram- 
men kleinerer Softwarefirmen. Warum sollte man also ein 
weiteres derartiges Programm veröffentlichen? 

Zum einen haben die professionellen Programme den 
Nachteil, daß sie nur für viel Geld zu bekommen sind. Zum 
anderen unterstützen sie nicht die vielfältigen Grafikstufen 
der XL/XE-Computer. Grund genug, ein Programm zu ver- 
öffentlichen, das die meisten Grafikstufen berücksichtigt, 
eine umfangreiche Bibliothek an Malfunktionen besitzt, 
sowie obendrein nocheine Hardcopy-Routine aufweist, mit 
der ein Bild bequem und schnell aut einem CP-80-Drucker 
von Seikosha ausgedrucktwird. Wenn Sie nur eine Zeile im 
Programm ändern, arbeitet es auch mit anderen Druckern 
zusammen. 

Das Programm »Grafik-Draw« besteht insgesamt aus 
drei Listings. Listing 1 ist das eigentliche Malprogramm. 
Programmteile, die zeitkritische Aufgaben übernehmen 
(Listing 2 und 3), sind in Maschinensprache programmiert 
und werden vom Hauptprogramm nach dessen Start von 
der Diskette dazugeladen. Diese Listings müssen mit dem 
AMPEL-Programm eingegeben und unter den Namen 
»UPADSTK.BIN« und »UKIPDRK.BIN« auf der gleichen 
Diskette wie das Hauptprogramm gespeichert werden. 

Nach dem Start von Grafik-Draw erscheint auf dem Bild- 
schirm das Hauptmenü. Der leuchtende Balken wählt die 
einzelnen Menüpunkte aus. Er wird mit einem Joystick oder 
einem Grafik-Tablett wie der Atari-Maltafel bewegt, die in 
Port 1 anzuschließen sind. Um zwischen dem Joystickoder 
der Maltafel als Eingabemedium zu entscheiden, gehtman 
auf den Menüpunkt »Zeichengerät« und schaltet dann auf 
Knopfdruck zwischen den beiden Eingabegeräten hin und 


Demo: Hardcopy Grafik Draw 


Beispiel einer technischen Zeichnung 


her. Das gerade gültige Zeichengerät wird rechts neben 
dem Menüpunkt angezeigt. 

Das Programm stellt elf Zeichen sowie sechs weitere 
Funktionen zur Verfügung. Wurde eine Zeichenfunktion 
angewählt, so schaltet der Computer vom Menü zum 
gezeichneten Bild. Dort wird mit der Taste <F> die Mal- 
farbe festgelegt. Zurück ins Menü kommt man mit der 
<SPACE>-Taste. Folgende Zeichenfunktionen stehen zur 
Auswahl: 


Zeichnen: Freihändiges Zeichnen wird mit dieser Funk- 
tion unterstützt. Die Linie auf dem Bildschirm folgt direkt 
dem Fadenkreuz. 

Linie: Beim ersten Druck auf den Joystick/Touch-Tablet- 
Knopf wird der Anfangspunkt, mit dem zweiten Knopfdruck 
der Endpunkt einer zu ziehenden Linie festgelegt. 

Linie folgend: Wie »Linie«, nur daß der Endpunkt einer 
ersten Linie zugleich der Anfangspunkt einer zweiten Linie 
ist, 

Kreis: Der erste Knopfdruck legt den Mittelpunkt eines 
zu zeichnenden Kreises fest. Durch Bewegen des Faden- 
kreuzes bestimmt man den Durchmesser des Kreises. 

Ellipse: Wie Kreis, nur daß hierbei eine Ellipse gezeich- 
net wird, die in der Horizontalen und Vertikalen unter- 
schiedliche Ausdehnungen hat. 

Rechteck: Der erste Knopfdruck bestimmt den obersten 
linken Eckpunkt eines Rechtecks, der zweite Knopfdruck 
den untersten rechten Eckpunkt. Durch diese beiden 
Punkte wird ein Rechteck gezeichnet. 

Rechteck gef.: Wie »Rechteck«. Anschließend wird das 
Rechteck ausgefüllt. 

Ausfüllen: Malt eine beliebige schwarze Fläche wird in 
der gewählten Farbe aus. 

Kopieren: Diese Funktion kopiert einen beliebig großen 
rechteckigen Bildschirmausschnitt in einen anderen Teil 
des Bildes. Läßt man den Joystick/Maltafelknopf während 
der Bewegung des Ausschnitts gedrückt, wird mitdem Aus- 
schnitt gezeichnet. 

Text: Maximal 20 Zeichen lassen sich eingeben. Mitdem 
Joystick positioniert man dann den Text auf dem Bild- 
schirm. Läßt man den Joystickknopf gedrückt, wird mitdem 
Text wie bei »Kopieren« auf Bildschirm gezeichnet. 

Zoom: Mit dem Fadenkreuz wird ein rechteckiger Bild- 
schirmausschnitt bestimmt, der über den ganzen Bild- 
schirm vergrößert wird. In der Vergrößerung !äßt sich nach 
Belieben zeichnen. 


Zeichengeraet :J0OyStick 


Das Menü von Grafik-Draw 
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Die folgenden sechs Menüpunkte sprechen die rest- 
lichen Funktionen des Programms an: 

Farben: Aufdem Bildschirm erscheinen vier Farbbalken. 
Neben dem obersten Balken befindetsich ein Pfeil, der die 
gerade gewählte Farbe markiert. Mit <START> wähltman 
eineandere Farbean. <SELECT> verändert die Helligkeit 
dergewählten Farbe und <OPTION > variiert den Farbton. 
Durch <ESC> erfolgt die Übernahme der Veränderungen 
und die Rückkehr in den Zeichenmodus. 

Grafik Stufe stellt die Auflösung des Bildes ein. Die ein- 
zelnen Stufen entsprechen denen in Atari-Basic. Zur Aus- 
wahlstehen Stufe 5, 7, 8, 9, 10, 11 und 15. Die gewählte Stufe 
wird rechts neben dem Menüpunkt angezeigt. Stufe 5 bie- 
tet 80 mal 48 Punkte, wobei vier Farben frei zu definieren 
sind. In Stufe 7 erhöht sich die Auflösung auf 160 mal 96 
Bildschirmpunkte. Die höchste Auflösung bietet Stufe 8 mit 
320 mal 192 Punkten. Hierbei steht aber nur noch eine 
Farbe in zwei Helligkeiten zur Verfügung. Stufe 9, 10 und 11 
sind Unterformen von Stufe 8. Hier werden jeweils vier 
nebeneinanderliegende Punkte zu einem zusammenge- 
faßt. Die Auflösung beträgt in diesen Stufen 80 mal 192. In 
Stufe 9sind 16 Helligkeiten in einer Farbe verfügbar, und in 
Stufe 11 stehen alle 16 Farbschattierungen einer Hellig- 
keitsstufe zur Auswahl. In Stufe 10 sind neun Farben wähl- 
bar, wobei jeder eine von insgesamt 256 Farben zugeord- 
net wird. In dieser so gut wie überhaupt nicht genutzten 
Grafikstufe des Ataris lassen sich sehr ansprechende Bil- 
der zeichnen. 

Löschen: Nach einer Sicherheitsabfrage wird das Bild 
gelöscht. 

Disk: Das Programm verzweigt 
Untermenü. 

- <D> zeigt das Directory von Laufwerk 1 an. 
- <L> lädt. ein Bild von der Diskette. Dabei wird je nach 
Bild automatisch auf die richtige Grafikstufe umgeschaltet 


ins  Disketten- 


Drucken erzeugt eine Hardcopy auf einem CP-80- 
Drucker. Dabei stehen zwei Vergrößerungsstufen zur Aus- 
wahl. 

- <1> produziert eine Hardcopy über die halbe Breite 
einer DIN-A4-Seite. 
- <2> druckt ein Bild über eine volle DIN-A4-Seite aus. 

Bei einer Hardcopy über die halbe Breite des Blattes wer- 
den Sie zusätzlich gefragt, ob Sie den Ausdruck in der Mitte 
des Bildes oder nach links oder rechts versetzt haben wol- 
len. Der Ausdruck paßt sich dann entsprechend dieser Ein- 
gabe an. Auf diese Weise lassen sich zum Beispiel doppel- 
seitige Einladungen drucken. 

Mit diesem Menüpunkt !äßt sich ein Bild normal oder 
invers aufs Blatt nadeln. Farben werden automatisch in 
Grauwerte umgewandelt. Der Menüpunkt »Drucken« funk- 
tioniert nicht mit den Grafikstufen 5 und 7. 

Falls Sie einen anderen Drucker als den GP-80 von Sei- 
kosha besitzen, läßt sich die Hardcopy-Routine folgender- 
maßen anpassen: In Zeile 10230 des Turbo-Basic-Pro- 
gramms steht der Drucker-Steuercode zum Drucken von 
Bitmustern. In diese Zeile müssen Sie die Steuercodes 
Ihres eigenen Druckerseintragen. Für einen Epson kompa- 
tiblen Drucker muß die Zeile wie folgt aussehen: 

10230 GR$=CHR$(27) :GR$(22)="K":GR$(%3)=CHR$(192): 
GR$(4)=CHRF(O) 

Das Programm belegt fast den ganzen Speicher des 
Computers. Weitere umfangreiche Funktionen lassen sich 
also nicht integrieren. 

Wir hoffen, daß Sie mit Grafik-Draw jetzt nicht mehr stän- 
dig viele verschiedene Malprogramme zur Hand haben 
müssen, um in verschiedenen Grafikstufen zeichnen zu 
können. Viel Spaß mit dem Programm! 

(Klaus Krassowski/hf) 


und die richtigen Farben gewählt. Bilder vom Atari-Artist | __ Steckbrief 

Programm lassen sich nur dann laden, wenn sie mit Programm: | Grafik-Draw 

<INSERT> gespeichert wurden. In diesem Fall legt der n = 

‚Atari-Artist die Bilder nicht in komprimierter Form auf Dis. | Sprache: | _Turbo-Basie 

kette ab. | Eingabehilfe: | Prüfsummer und AMPEL 

- <S> speichert ein Bild auf Diskette. RT E 

- <ESC> kehrt ins Menü zurück. | Datenträger: | Diskette Ei] 
ıa — <YH> OT X+1,Y <PJ> 
11 REM <JQ> 1888 COLOR COL:PAUSE 1 <KG> 
12 REM Graphic Draw <Au> 1829 IF MODE=8 THEN POKE 87,15:ENDIF <IH> 
13 REM (c) 1987 Klaus Krassowski <BE> 1899 ENDPROC <RD> 
15 REM <ar> 1999 REM „ FUNKTIONEN <HK> 
49 — <ZR> 2000 IF A=335 THEN 7208 <Qf> 
522 GDSUB 10290: G0SUB 8998 xDK> 2049 IF A=5£ THEN GOSUB 12988 <HD> 
&B@ BLOAD "D:UPADSTK.BIN" <HO> 208658 FKTFG=%@: IF A=28 OR A=42 OR A=45 OR 
618 Z=USR (#9889 „ADR (PM$) „NR <IK> A=&53 THEN 2098 <HT> 
628 POKE $06B1,TEIL <Y6> 2088 POKE N764,N255 <DN> 
78@ BLOAD "D:UKIPDRK. BIN" : DKAD=59588 <BT> 2098 GOTO 2782 xSsI> 
880 GOTO 7188 <H6> 2502 REM „.. HAUPT <Ian> 
399 — <LD> 2408 FF=%B: CPF=49:COL=ACOL:COLOR COL:POK 
1598 PROC BUT:REPEAT :IF JTFrA=STICK (71) E N764 ,N255:60SUB 12080 <u0> 
=14:ELSE :A=STRIG(%®) :ENDIF zUNTIL A=%1: 2628 IF GRS=1® THEN POKE 623,161 <AS> 
PAUSE 4: ENDPROC <HB> 2630 POKE $O6BF ,%1 <cI> 
1699 — <yYB> 27808 # HAUPT <IX> 
1788 PROC CRSGRE <P6> 2701 FKTFG=Z71:A=PEEK (764): IF A<>N2SS THE 
1728 IF MODE=8 THEN POKE 87,8 x<XD> N 2200 <Iy> 
1735 TRAP 1808 <ar> 2782 IF STICK(%1)=7 THEN 7990 <EZ> 
1748 LOCATE X-1,Y,CR1:LOCATE X,Y-1,CR2:L 2703 A=PEEK (53279): IF A=%5 THEN JTF=JTF= 
OCATE X,Y+1,CRS:LOCATE X+1,Y,CR4 <ov> #8: POKE $8615,JTF:DPOKE $CB,X:POKE SCD,Y 


1762 COLOR 1-CR1:PLOT X-1,Y:COLOR 1-CR2: 
PLOT X,Y-1:COLOR 1-CR3:PLOT X,Y+1:COLOR 
1-CR4:PLOT X+1,Y: PAUSE 3 <yT> 
1788 COLOR CRi:PLOT X-1,Y:COLOR CR2:PLOT 
X,Y-1:COLOR CRS:PLOT X,Y+1:COLOR CR4:PL 


:60SUB 9828: FKTFG=78 <HZ> 
2784 IF A=5 THEN JTMP=JTMP=4@:POKE S@60D 

„JTMP:GOSUB 9800: FKTFG=78 <LP> 
2705 IF JTMP THEN POKE $862D,JTMP <T6> 


2718 IF JTF:P1=(DPEEK (40696) DIV TEIL-14 
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AAPP>F 


———— 


) DIV (APIX/Z2) :Y=(213-(DPEEK (40608) DIV 
TEIL) DIV ASLI 

2715 STR=STICK(X1)-14:X=PisIF P1>212 THE 
N X=XA: Y=YA 

2729 X=X#(X>1Q) : Y=Y#(Y>40) 

2721 IF X>XMAX THEN X=XMAX 

2722 IF Y>YMAX THEN Y=YMAX 

2725 DPOKE $CB,X:POKE $CD,Y 

2738 ELSE : X-DPEEK($CB) : Y=PEEK ($CD) :STR= 
STRIG (%@) :ENDIF 

2750 IF MODE=9 THEN I=B/APIX:X=X DIV TeI 
2778 IF GRS=8 AND STR=1 THEN EXEC CRSSRE 
2808 IF FKTFG AND MODE<>%1 AND STR AND X 
=XA AND Y=YA:GO# HAUPT:ENDIF : XA=X: YA=Y 
2952 ON MODE GO# DRAW,LINE,LINEX,KREIS,K 
REIS,RECHT,RECHT,FILL,COPY, TEXTG, ZOOM 
2995 REM =. ZEICHNEN 

IOQ® * DRAW:IF STR THEN FF=28:60# HAUPT 
302@ IF FF:DRAWTO X,Y 

3848 ELSE :PLOT X,Y:FF=%1 

3298 ENDIF :60% HAUPT 

319@ REM “u PUNKTE 

3228 # PUNKT:IF STR=4B THEN PLOT X,Y 
3298 S0# HAUPT 

3495 REM „. LINIEN 

3588 # LINE:IF FF AND STR THEN MOVE SC2, 
SC1,SCL:PLOT X1,Y1:DRAWTO X,Y:50# HAUPT 
3682 IF FF=%8 AND STR=4B THEN MOVE SC1,5 
C2,SCL:X1=X: Yi=Y:FF=Z1:EXEC BUT:60# HAUP 
T 


3650 IF STR=/8 THEN FF=FF=%0:PLOT X1,Y1: 
DRAWTO X,Y:EXEC BUT 

3698 GO# HAUPT 

3699 REM „. LINIEN VERBUNDEN 

3782 # LINEX:IF PEEK(N764)=42 THEN FF=40 
:POKE N764,N255:MOVE SC2,SC1,SCL 

371® IF FF AND STR THEN MOVE SC2,SC1,SCL 
:PLOT X1,Y1:DRAWTO X,Y:60# HAUPT 

375@ IF FF=49 AND STR=/8 THEN MOVE SC1,S 
C2,SCL:PLOT X,Y:X1=X: Yi=YıFF=Z1:EXEC BUT 
260% HAUPT 

3808 IF STR=%® THEN PLOT X1,Y1:DRAWTO X, 
Y:X1=X:Yi=Y:MOVE SC1,SC2,SCL:EXEC BUT 
3999 GO# HAUPT 

3995 REM 2. KREIS 

4008 # KREIS: IF MODE=S:RDi=ABS(X-X1):RD2 
=ABS(Y-Y1D 

4920 ELSE :RDISSOR ((X-X1) "24 (Y-Y1D/CAPL 
X/ASLI))”2) :RD2=RDI1# (APIX/ASLI):ENDIF 
4128 IF FF AND STR THEN MOVE SC2,SC1,SCL 
:CIRCLE X1,Y1,RD1,RD2:60# HAUPT 

4200 IF FF=1Q AND STR-4B THEN MOVE SC1,S 
C2,SCL:X1=X:Yi=YıFF=41:EXEC BUT:GOR HAUP 
T 


4308 IF STR=28 THEN FF=FF=%B:CIRCLE X1,Y 
1,RD1,RD2zEXEC BUT 

4490 SO# HAUPT 

4495 REM “. RECHTECK 

4499 # RECHT 

4508 IF FF AND STR THEN MOVE SC2,SC1,SCL 
:PLOT X1,YizDRAWTO X1,Y:DRAWTO X,YzDRAWT 
O X,Y1:DRAWTO X1,Y1:G0# HAUPT 

460@ IF FF=%Q AND STR=7® THEN MOVE SC1,S 
C2,SCL:X1=X:Yi=YıFF=Z1:EXEC BUT:GO# HAUP 
7. 


4708 IF STR=XB:FF=FF=18:PLOT X1,Y1:DRAWT 
O X1,YzDRAWTO X1,Y1:DRAWTO X,Y1:DRAWTO X 
1,Y1 
4720 IF MODE=7 THEN N=1-(Z#(Y1>Y))zFOR I 
=Yi TO Y STEP N:PLOT x1,I:DRAWTO X,I:NEX 
AL 


4758 EXEC BUT:ENDIF 

4922 GO# HAUPT 

4995 REM “. AUSFUELLEN 

S@U® * FILL:IF PEEK(N764)=28 THEN MOVE S 
C2,SC1,SCL:POKE N764 ,N255 

5082 IF STR=%4@: IF GRS=8 THEN X=X DIV 42 
S12@ PAINT X,Y:ENDIF 

5200 G0# HAUPT 

550@ REM “. KOPIEREN 


<an> 


<uc> 
<QH> 
<KH> 
<NN> 
<B> 


<H6> 
<HC> 
<20> 


<J2> 


<HH> 
<IK> 
<TT> 
<BI> 
<cD> 
<FQa> 
<BT> 
<HH> 
<Fc> 
<PH> 


<DU> 


<If> 
<NZ> 
<FK> 
<aK> 
<AH> 


<mu> 


<RI> 


<cX> 
<FQ> 
<HE> 


<UR> 
<L6> 


<00> 


<ar> 


<TH> 
<FH> 
<PQ> 
<61> 


<NI> 


<16> 


<Ds> 


<HA> 
<BF> 
<EQ> 
<XH> 


<XN> 
<As> 
<BT> 
<ED> 
<AX> 


5522 # COPY 

5558 IF CPF=4B 

5698 IF FF=%@ AND STR=%@ THEN MOVE SC1,S 
C2,SCL:X2=X: Y2=Y:FF=%1:60# HAUPT 

5619 IF FF AND STR:MOVE SC2,SC1,SCL 
5628 PLOT X2,Y2:DRAWTO X2,Y:DRAWTO X,Y:D 
RAWTO X,Y2:DRAWTO X2,Y2:60# HAUPT:ENDIF 
5708 IF STR=AB:FF=718: CPF=41:X4=X: Y4=YıX3 
=X2: Y3=Y2: XD=ABS (X4-X3) : YD=ABS(YA-YF) EX 
EC BUT 

5718 IF XD<%1 OR YD<%1 THEN CPF=40:FF=%1 
zENDIF 

5738 1=8/APIX: Z1=5C1: XDGER=INT (-XD/I)*-% 
1: YDG=YD:MOVE SC2,5SC1,SCL 

5752 ELSE 

576@ IF X>XMAX-XD THEN X=XMAX-XD 

5770 IF V>YMAX-YD THEN Y=YMAX-YD 

SE@R IF PEEK(N764)=63 

5838 PLOT X3,Y3:DRAWTO X3,Y4:DRAWTO X4,Y 
4:DRAWTO X4,YS:DRAWTO X3,Y3 

S88@ PLOT X,Y:DRAWTO X+XD,Y:DRAWTO X+XD, 
Y+YD:DRAWTO X,Y+YD:DRAWTO X,Y 

5988 ELSE 

S91@ Z=USR(DKAD+32B,21-SC1+SC2,21,XDGER, 
YDE,ABYT) 

5922 1=8/APIX: XDGER=INT (-XD/T)#-%1 

5938 Qi=SC2+YSAABYT+X3 DIV I:Z1=SC1+Y#AB 
YT+X DIV I:YDG=YD 

5942 Z=USR (DKAD+320,01,Z1,XDGER,YDS,ABYT 
> 


5989 IF STR=%@ THEN Z=USR(DKAD+32@,21,Z1 
-SC1+5C2,XDGER, YDG,ABYT) =X3=X: Y3=Y:X4=X+ 
XD: Y4=Y+YDz ENDIF 

5982 IF PEEK(N764)=42 THEN CPF=7@:Move S 
C2,SC1,SCL:POKE N764,N255:ENDIF 

5990 G0# HAUPT 

5999 REM „= TEXT 

6088 # TEXTG:IF STR THEN FF=41:MOVE SC2, 
SC1,SCL:TEXT X,Y,TXT$: IF PEEK(N764)=45:6 
OTO 64@B:ENDIF :G0# HAUPT 

6380 IF STR=%® THEN MOVE SC1,502,SCL:TEX 
T X,Y,TXTS 

6398 GO# HAUPT 

6428 POKE N764 ,N255: TXT$= 
6485 MOVE SC2,SC1,SCL 
6418 DO :GET I: IF I=1SS:EXIT :ELSE :TXT$ 
(N,NISCHR$ (I) zN=N+A1:MOVE SC2,SC1,SCL-TE 
XT X,Y,TXT$:LOOP :ENDIF 

6480 POKE N764,N255 

6498 60% HAUPT 


":N=%1 


MFG=%1 

XD=48/ (APIX/ASLII-A1: YD=23 
6550 IF FF=4@ 

6568 IF X>XMAX-XD THEN X=XMAX-XD 

6570 IF Y>YMAX-YD THEN YMAX-YD 

6588 IF STR 

660® MOVE SC2,SC1,SCL 

6630 PLOT X,Y:DRAWTO X+XD,Y:DRAWTO X+XD, 
Y+YD:DRAWTO X,Y+YD:DRAWTO X,Y 

668@ ELSE :FF=41:MOVE SC2,SC1,SCL 

6690 X1=X:Yi=Y:REM 06Z=62:62=1:60SUB 800 
2: 62=062 

6700 Z=USR (DKAD+420,%B,PUFAD,X,XD+X1,Y,Y 
D+41,APIX) 

6770 ENDIF :60# HAUPT 

6789 ENDIF 

6800 I=X DIV 8:J=Y DIV 8:X=Ix8:Y=Je8 
632@ COLOR PEEK (PUFAD+Y2# (XD+41)+X2) 2 TEX 
T X2#8,Y2*8,"."2COLOR COL:TEXT X,Y,"{CTL 
_8}":X2=1:Y: 
6858 IF STR=48 THEN TEXT X,Y,"“":POKE PU 
FAD+3%* (XD+41)+1,COL 

6988 IF PEEK(N764)=42:POKE N764,N255 
6919 MOVE SC2,SC1,SCL 


Listing 1. »Grafik-Draw« 


<Ch> 
<TK> 


<IE> 
<an> 


<EX> 


<XA> 
<cD> 
<Sf> 
<UB> 
<EQ> 
<I6> 
<LR> 
<YL> 


<S6> 
<Ta> 


<Tv> 
<I> 


<NF> 


<LB> 


<AK> 


<B0> 
<FS> 
<av> 


<10> 


<10> 
<FH> 
<uT> 
<v0> 


<ZK> 
<D2> 
<FI> 
<RY> 
<a0> 
<E6> 
<HK> 
<EN> 
<JD> 
<LL> 
<ur> 


<RO> 
<PH> 


<KS> 


<na> 
<6B> 
<TX> 
<FH> 


<or> 


<CH> 
<un> 
<UH> 
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6920 Z=USR (DKAD+49@,%1 ,PUFAD,X1,XD+41,Yi 
„YD+Z1,APIX) 

6948 MOVE SC1,5C2,SCL:FF=%8: X=X1:Y=Yi:DP 
OKE $CB,X:POKE $CD,YıGOSUB 8298: 60# ZOOM 
6995 ENDIF :60# HAUPT 

7O@® REM =. MENU 

7050 IF FF=7D AND MODE<>11 AND MODE<>9 T 
HEN MOVE SC1,5C2,SCL 

71B® POKE $Q6QD,A2:POKE $D6BF ,2B:POKE 5@ 

618,78 

7208 GRAPHICS Z2:POKE S59,%20:POKE 53249, 
A0: POKE 53250,48:POKE 712,1®:POKE 789,0: 
POKE 712,80 

7218 POKE N764,N255 

7250 MPS=MODE:POKE $B6RC,191:POKE $CD,MO 
DE*6: Y=MODEx8+56: G0OSUB 9208 

7320 POKE 752,412? "tESC CTL <ICTL QICC 
TL RYITCTL RYLETL RISCTL RITETL RY{CTL R> 
XCTL RILCTL RILETL RICCTL RIXCTL RYTCTL 
RICTL RICCTL RICETL RICTL RICTL RICCT 
L RICETL RILCTL RICCTL RICCTL RILCTL RIC 
ETL RIICTL RICCTL RILCTL RILCTL RICCTL R 
FLETL RILCTL RILCTL RICCTL RITCTL RYLCETL 
> 

7350 ? "ASHIFT =Parnaaaasıı  GrafikaDraw 
"POSITION 37,%1:7 "(SHIFT =)" 

738® ? "{SHIFT =?au2.(C) 19874uKlausaKra 
ssowskis":POSITION 37,422? "(SHIFT =}“ 
7458 ? "LCTL AYLCTL RICCTL RYLETL RITCTL 


RILETL RFECTL RICETL RILCTL RIZETL RICO 
TL RITETL RITCTL RITCTL RITCTL RYTCTL R> 
{ETL RILCTL RILCTL WICCTL RITCTL RITCTL 
RILCTL RILCTL RITETL RYCCTL RICCTL RICCT 
L RILETL RILCCTL RILCCTL RYLCTL RICCTL RYT 
ETL RILETL RYLCTL >" 

76988 


? "{SHIFT =IaZeichnensnaan ss {SHIFT 


? "ISHIFT =ILini@aaaa ss sa {SHIFT 
? "{SHIFT =IaLiniesfolgendass{SHIFT 
? "{SHIFT =YaKreisauuuuu ss LISHIFT 
? "{SHIFT =IsEL Lipsenaasss as {SHIFT 
? "XSHIFT =IaRechteckanaassss {SHIFT 
? "{SHIFT =}sRechtecksgef nn {SHIFT 
? "ISHIFT =)aAusfuellenannsas {SHIFT 
? "{SHIFT =)aKopierenanaassss {SHIFT 
? M{SHIFT SYATextssnaassss ss {SHIFT 


7 "ISHIFT SPA ZOOManaaaass ss {SHIFT 


? "LETL AlsFfarben-umnassss {CT RIO 
TL SITCTL RILCTL RICCTL RICCTL RILCTL €3 
XESC CTL =ITESC CTL +IXSHIFT =I{ESC CTL 
Br 
7668 ? "iSHIFT =).GrafikuStufenunn: [GR 
S;"I" 
7678 ? "(SHIFT =).LoeschenaanannantCTL A 
ILCTL RILCTL RILCTL RICCTL RILETL XHLCTL 
RILCTL RIECTL RYECTL RICCTL RILCTL RICO 
TL RI{CTL RILETL RYLCTL RYLCTL EITESC CT 
L =3tESC CTL +3{SHIFT =IXESC CTL 3" 
7688 ? "ISHIFT =PaDiskanaias se ERN 
s 
769@ 7 "tÖHIFT =).DruckenaanunasustCTL A 
IEETL RILCTL RICCTL RILCTL RICCTL RICCTL 
RIXCTL RIECTL RITETL RYLCTL RI{CTL RICO 
TL RITETL RILETL RICCTL RICCTL DIKESC CT 
L =ITESC CTL +2 CSHIFT =ICESC CTL I" 
7692 ? "{SHIFT =}“Zeichengeraet„.:"5 
7695 IF JTF:? "TouchaTablet":ELSE :? "Jo 
ystick"zENDIF 
7698 ? "CCTL ZILCTL RISCTL RICCTL RICCTL 
RILETL RICCTL RICETL RICCTL RILCTL RICO 


<uX> 
<u0> 
<HF> 
<He> 
<Ya> 
<HS> 
<X6> 
<DB> 


<FY> 


<BB> 
<PU> 


<BJ> 


<ra> 
<ZH> 
<0c> 
<Kr> 
<aN> 
<EN> 
<uv> 
<uUD> 
<92> 
<FV> 
<HH> 


<HB> 


<F0> 
<EG> 


<xP> 


<CH> 


xSV> 
<GI> 


<KU> 


TL-RICCTL RICCTL RIECCTL RYILCTL RYECTL R3 
tETL RILCTL RICCTL XILCTL RICCTL RICCTL 
RILETL RILETL RYCCTL RILETL RILCTL RILCT 
L RILCTL RITCTL RY{ETL RYLCTL RICETL RIC 
ETL RYLCTL C}":? :POKE 752,78 

7709 DO :IF JTF: 


7 


7785 ELSE :Y=288-PADDLE (%3): WY>AD) EA 
=y DIV 1 AUSE W1:ENDIF 

7718 ST1=STRIS (49) :ST2=STICK (41)-14 
7714 IF A AND MPS<>A:MPS=A 

7716 IF MPS>17:MPS=17:POKE $CD,MPS*&:ELS 
E 

7718 SOUND %8,MPS*8+28,12,LAUTS:PAUSE %1 
7728 Y=MPS*8+55:GDSUB 9280 

7725 ENDIF :SOUND %9,%8,%2,A@:ENDIF :IF 


STI=X@ OR ST2=/@ THEN EXIT 

7738 LOOP 

7770 IF MPS<12 THEN MODE=MPS 

7898 IF MPS=153 THEN GOSUB 14208 

7810 IF GRS=5 AND (MODE=7 DR MODE=11 OR 

MPS=16) THEN GOSUB 98@2:MODE=1:60T0 7108 
782@ IF MPS=14 THEN ? "BildsLoeschen“[J/ 

N: :GET IzIF I<>AScc"J") THEN 7 
7839 IF MPS=1® THEN ? "Texta-> 
TXT$ 

7858 IF MPS=15 THEN GOSUB 17088 
7878 IF MPS=17 THEN JTF=JTF=%B:POKE $861 
S,JTF:G0T0 7308 

7888 IF MODE=9 THEN POKE $96418,%1 

7999 IF MPS=1& THEN GOSUB 21208 

79749 REM 

7958 POKE 53249,%0:POKE 53250,%8 

7968 POKE 559,40: 5RAPHICS GRS+16:SCI=DPE 
EK (88) 

7962 GOSUB 8022: G0SUB 15222 

7965 POKE $86BC,YMAX:MOVE SC2,SC1,SCL 
797@ IF GRS=3 THEN POKE 712,22 

7975 IF MPS=14 THEN CLS #6:MOVE SC1,SC2, 
SCL 

7980 IF MPS=16 AND DRFG THEN GOSUB 20000 
:60T0 7328 

7985 IF MPS=12 THEN SOSUB 12508 

7998 IF MPS=15 THEN ON LSF GOSUB 189080,1 
8590: GOSUB 15889: MOVE SC1,SC2,SCL:60T0 7 


G0TO 2688 

REM „u. PM STEUERUNG 

NR=4B:RESTORE 8122+62*10 

DO :READ A:IF A=-1 THEN EXIT 
NR=NR+A1:PM$ (NR ,NRI=CHR$ (A) 

LOOP :POKE $A6BE,NR 
DATA2Q,0,48,48,72,72,72,72,48,48,0, 


DATA.0,9,32,32,80,38,32,32,8,-1 
DATA.2,0,498,48,204,48,48,0,-1 
DATA.2,0,24,24,122,24,24,0,-1 
DATA.Q,0,48,48,284,48,48,8,-1 
DATAQ,2,32,32,88,32,32,2,0,8,-1 
DATAxB,0,0,0,2,-1 

POKE SS7,62:POKE 705,15 

I=PEEK (186) -40: FMAD=1#256+1280 

POKE 54279 ,1:POKE 53277,%3 

POKE 53257,4@:REM PLAYER 1 !! 

POKE 53258,%1 

POKE PMAD,%@:MOVE PMAD,PMAD+Z1 ,N255 
POKE PMAD+N255,2@:MOVE PMAD+N255,PM 


8322 POKE PMAD+N2SS+22,N255:MOVE PMAD+NZ 
35+20,PMAD+N255+21,12 

POKE 53259,48 

RETURN 

REM 2. PM MENU 

POKE PMAD,%2:MOVE PMAD,PMAD+41,512 

POKE 559,2: FOKE 53277\43:POKE 625, 


9BS5 IF MPS<12:POKE 705,186:POKE 706,186 
sELSE :POKE 785,42:POKE 726,42: ENDIF 
9078 POKE S3257,45:POKE S3258,43:POKE 53 
249 „62: POKE 53250, 78 

gıaa MOVE ADR (PM2$) „PMAD+Y,8 


Y=PEEK ($CD) :A=Y DIV & < 
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9128 MOVE ADR(PM2$) „PMAD+256+Y,8 <T2> 
9192 RETURN <Q@E> 
9499 REM „ PM AUS <vU> 
9522 POKE 712,16:POKE 799,12:POKE 705,16 

:POKE 786,16: RETURN <HP> 
9799 REM _ TON <I0> 
9820 SOUND %08,98,10,LAUTS: PAUSE 8: SOUND 

70,78 ,%0,7,8: RETURN <LR> 
10080 REM =u. INIT <GE> 
10220 DIM PM&(SD) ‚PM24(13) „GRSIIS(7700) , 

PUFS (1008) „CPF$ (320) <ay> 
10030 DIM A$(15) ‚GRNS(1S) ,TXTS(4D) <To> 
12248 DIM GCOL(7,8) <UH> 
19252 SC2=ADR (GRSII$) :PMSTR=ADR (PM$) <YL> 
19280 DIM GR$(6) ,„KLRF(4D) <UH> 


12159 PM2$="{ESC CTL >> 
ETL >3":PM2$ 


M2S(12)="{ESC 


12192 GRSII 
L „I":GRSII$42 
10298 KLRS= 
$:GRN$=KLR$ 


19222 PUFAD=ADR (PUFS) <HR> 
19230 GRFSCHR$ (27) :GRS(ADI="K" <UR> 
10330 N255=255: N764=764 <sv> 
: ACOL=COL : DFMT=%1: DRFG=%B: IT 
NVFG=40:LAUTS=4: TEIL=%2 <XH> 
12422 MODE <ac> 
102418 SZ=6:G0SUB 14100: G0SUB 14508 <RV> 
12492 RETURN <ur> 
12282 REM „. FARB WAHL <AC> 
12028 GOSUB 98RA:A=CM:IF GRS=9 OR BAS=11 
THEN A=16 <20> 
12038 IF GRS=B AND MODE=8 THEN FOKE 87,1 
SrA=4:X=X DIV 42 <uv> 
12288 ACOL=COL <19> 
12182 COL=COL+%1- COL+41)*(COL>=A-%1) <cv> 
12128 COLOR COL <SC> 
12282 IF GRS>B AND GRS<12 OR (GRS=8 AND 
MODE=8) :POKE 53258,78:MOVE SC1,ADR(CFFS) 
»320: TEXT 48,40," 0a <XE> 
12228 PAUSE S@:MOVE ADRICPFS) „SC1,320:EL 
SE :POKE 786,6COL (CMEN*42+41,COL) <xv> 
12329 ENDIF :POKE N764,N255 <86> 
12392 RETURN <uu> 
12498 REM „. FARB MENU <KE> 
12590 A=CM:Äs=" ne: IF GRS=9 OR GRS 
=11 THEN A=16 <Y6> 
1268® FOR I=%8 TO A-1 <AQ> 
1264@ COLOR I: TEXT 40,1*12,A$(%1,8/APIX) <YD> 
1246@ NEXT 1:COL=%48: TEXT 64/APIX,70," (ES 
C eTL +3" <EX> 
12788 DO :A=PEEK (53279) : IJ=CMEN#%2 <ar> 
12720 IF A=6 THEN TEXT 64/APIX,COL#12,". 
"2COL=(COL+419# (COL<CM-A1): TEXT 64/APIX, 
COL*12,"(ESC CTL +2":G0SUB 9802 <iH> 
12748 I=SCOL(J+41,COL)sH=I MOD 16:F=I-H <HB> 
12769 IF A=%3 THEN F=(F+16)*(F<242) :GCOL 
(3+71,COL)=F+H:POKE GCOL(J,COL) „F+H:PAUS 
<Ic> 
THEN H= (H+42) * (H&14) 1GCOL(J 
+%1,COL)=F+H:POKE SCOL(J,COL) „F+H: PAUSE 
18 <Ac> 
12888 IF PEEK(N764)=28 THEN POKE N764,N2 
SS:EXIT <LO> 
1290@ LOOP <uT> 
12998 MOVE SC2,SC1,SCL:RETURN <BU> 
14282 REM „. GRAPHIC WAHL <u1> 


: GOSUB 9588:? "{ESC CTL <YC 


14252 ? WelcheiGrafik-etufe? 
„L.5] 
c18J 


14268 ? "TamıtaBl" 

1487® REPEAT :GET I:1=I-48:UNTIL 1>48 AN 

D Iı<8 <IL> 
14888 6Z=1 <CR> 
14192 RESTORE 14398+GZ#*1Q:READ SRS,SCL,X 

MAX, YMAX „ABYT,APIX,ASLI,CMEN,CM <15> 
14218 DPOKE +B4BA,XMAX:POKE ADC, YMAX <E6> 
1422@ POKE $B611,APIX:POKE $@612,ASLI <av> 


14298 RETURN 
14392 REM GRS,SCL,XMAX,YMAX,ABYT,APIX,AS 
L1 


14422 DATA.5,960,79,47,20,4,4,1,4 
14418 DATA.7,3848,159, 95, 20, > 211,4 
14428 DATALI,7688,79,191,40,4,1,5, 
14439 DATAx10,7688,79,191,40,4,1,2 
14448 DATA211,7689,79,191,40,4,1,3 
14450 DATAA15,7688,159,191,48,2,1, 
14460 DATA-8,7688,519,191,AQ,1,1, 
14498 REM „= COLORS 

14508 RESTORE 14688 

14518 FOR N=42 TO %S:READ J 

14528 FOR I=/2 TO J-%1 

14539 READ A,B:SCOL (N*42, 1) =700+A 
14542 GCOL(N®Z2+71,1)=B 

1455® NEXT I:NEXT N 

14598 RETURN 

14698 DATA2,12,8,9,15 

14618 DATA4,12,92,8,186,9,158,10,40 
14620 DATA9,4,8,5,14,6,184,7,150,8,32,9 
‚176,18,90,11,88,12,6@2 

14638 DATAs1,12,8 

15008 REM „ FARBEN SETZEN 

1501® FOR 1=%® TO CM-%1:J=CMENx/2 

1585@ POKE GCOL(J,1) „GCOL(J+%1,1) 

1518@ NEXT I:RETURN 

17220 REM “. FILENAME 

17205 TRAP 72828:G0SUB 9592:? "{ESC CTL < 
JXESC CTL =}Disk.Menu" 


17918 

17928 DI«Directary" 

17038 ? "LLI-Laden“ 

17048 S14Speichern" 

1705® ? "LÄESC ESCHLEST ESC}ILENDE":? 
17068 GET I 

171@@ IF I=76 THEN LSF=%1:EXIT 
17118 IF I=85 THEN LSF=%2:EXIT 
17128 IF I=68 THEN ? =? :DIR 
17125 IF I=27 THEN EXIT 

17138 LOOP :IF I=27 THEN 17320 


17148 PUT I+128 
"{ESC CTL #7" 
17158 INPUT " 
r";AS 

17168 A=INSTR(A$,": 
EN GRNS=A$:RETURN 
17188 GRN$ (%1)="D: ":GRN$ (%3) =A$ 

17320 RETURN 

18922 REM „u. LADEN 

18102 TRAP 1849B:0PEN #4,4,8,BRNs 

18159 ACOL=%B:CLS #6:BGET #4,5C1,SCL 
18288 GET #4,I:IF I=75 

18250 GET #4,62:G0SUB 14120 

18322 GET #4,CM 

18528 FOR I=%@ TO CM-%1: J=CMEN#%2 

18348 GET #4,A:GET #4,B 

18358 GCOL(J,I)=A+728:6COL (J+%41,I)=B 
18428 NEXT I 

18498 ENDIF :CLOSE #4:RETURN 

18588 REM u. SPEICHERN 

18608 TRAP iB9QQ:OPEN #4,9,2,GRN$ 

18700 BPUT #4,SC1,SCL 

18820 PUT #4,75:PUT #4,GZ:PUT #4,CM 
18828 FOR 1=%8 TO CM-%i CMEN#%2 

18830 A=SCOL(J,1)-700: B=6COL(J+%1,1) 
18858 PUT #4,A:PUT #4,B 

1886@ NEXT I 

18988 CLOSE #4: RETURN 

20800 REM “2. DRUCK RDUTINE 

221288 TRAP 2B40B:DPEN #3,8,0,"P:r" 

29128 IF INVFG THEN Z=USR (DKAD+2808,YMAX+ 
1) 

20150 ? #3;"tESC ESCHACCTL HI" 


3? =IF LSF=%2 THEN ? „ 
GRNS; "{ESC CTL -3" 
ilenames{ESC ESCHLEST CTL 


:IF A=%2 OR A=45 TH 


Listing 1. »Grafik-Draw« (Fortsetzung) 
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29208 FOR N=SC1 TO SC1+SCL-328 STEP 328 <FB> :6R$ (4,4) =CHR$ (2) :GOTO 25988 <Uc> 


20258 IF PEEK(N764)=126 THEN POKE N764,N 21758 REPEAT :? "{ESC CTL <YX{ESC CTL = 
255: EXIT <KP> ESC CTL =IDRUCKPosition":? "tESC CTL 
20382 Z=USR (DKAD,DFMT,N,SC2) <c0> CiJaLinks":? "[21.Mitte":? "L[IIaRechts 
20358 IF DFMT=%1 THEN ? #35KLR$(%1,DPS); ? "t4JaIndividuel” <Lv> 
GR$;GRSII$S(%1,320) <RU> 218@0 ? :GET AzPUT A+128:A=A-48: UNTIL A> 
20480 IF DFMT=%2 THEN ? #35 6R$; GRSIIS(A1 %Q AND A<S <CH> 
,„648):? #3; 6R$;GRSIIF(641,1280) <CH> 21858 IF A<>4:DPS=(A-41)#19+%1 <VE> 
2045@ NEXT N <ır> 22158 ELSE :? :REPEAT :? "{ESC CTL -I{ES 
205@@ IF INVFG THEN Z=USR (DKAD+28B, YMAX+ C SHIFT DEL}Position.[L1-421x INPUT DP 
#1) <HC> S:UNTIL DPS>4@ AND DPS<41 <TP> 
20552 MOVE SC1,5C2,SCL <UX> 23088 ENDIF <RZ> 
20688 CLOSE #; ETURN <DyY> 23028 ? :? "{ESC CTL =>Invers“Druckenaal 
21908 REM „.. DRUCK FORMAT <Au> J/N14" ET IsIF I=ASCc"J" NVFG=Z1:ELS 
Zı050 GOSUB 9588 <Lv> E : INVFG=%@:ENDIF <ZP> 
21188 REPEAT :? "{ESC CTL <ItESC CTL =3{ 23580 ? :? "{ESC CTL =?StartexDruckenaal 
ESC CTL =)D Format":? "{ESC CTL =3l1 I/NI@";:GET I <DL> 
? "[2]aBanzesDIN. 23518 IF I=ASC("J"):DRFG=Z21:ELSE :DRFE=% 
AsBreite":? <CH> 8: INVFG=%Z@: ENDIF <HE> 
21120 GET A:PUT A+128:A=A-48 <SB> 24000 RETURN <T6> 
21150 UNTIL A>ZB AND A<ZS <Ur> 
2120® DFMT=A <Ic> 
2125@ IF DFMT=%i THEN GR$(3,3)=CHR$ (64) : 
ERS (4,4) =CHR$ (1) <MO> 
21450 IF DFMT=%2 THEN GR$(S,3)=CHR$ (128) Listing 1. »Grafik-Draw« (Schluß) 
Programmame tUPADSTK.BIN WBER:AE DC 06 E4 CD BG @2 86 <acy 0230:E5 38 E9 @1 BA An ED 49 <B> 
änge :498 Bytes @QEB:CD AE @D 26 FD 05 AZ 02 <D7> 9238:97 8D &D 97 BD 4A 97 8D <CF> 
GBFOLGE AD 06 AE OF 6 DO 3 <C9> Q240:6E 97 AS SB SD 20 26 AS <76> 
@OFB:4C 62 E4 IE AD 18 96 69 <ar> 9248:59 8D 81 86 4C 51 97 6F <CE> 
98 86 99 68 68 <an> Q12B: IC AB A2 2@ BA 99 QM 9D <BA> @250:77 @D 97 02 @0 78 97 AD <71> 
85 CE 68 68 an <5D> B108:C5 EB EC BE 86 DB F6 as <c7> 9258:8@ 96 85 D4 AD 81 86 85 <67> 
28 ED er D6 a7 <05> W11B:CD ED 16 96 AE 12 86 EU <E1> @260:D5 18 AS D4 &9 AG 85 DE <ab> 
26 A2 98 nB 20 <9a> @i18:02 D® 87 18 ZE 16 Q& AC <85> 9268:AS DS 69 90 85 D9 aD ma <D1> 
SC E4 &8 aD 15 <85> 2120:27 99 E@ @4 DO 87 18 ze <ı8> 2270:B1 E@ AC 6F 97 FO @2 AP <S6> 
AD 72 @2 18 &D <op> 0128:16 26 ZE 16 86 18 AD 16 <DF> @27U:FF 85 D& AC AB 97 85 E2 <Es> 
22 06 98 83 EE <ca> 2130:86 BD 10 96 69 IC AR AD <6B> 0208:85 D& 86 E2 86 E2 B6 E2 <85> 
73 @2 ı8 &D @4 <57> 2139:0@ Bi CE 9D 08 7D EB ca <as> 0288:86 E2 AS EZ 85 D& 85 De <B> 
26 90 05 EE 85 <F2> G1AB:CC BE 06 D® F& AS CB ED <C2> B290: AT AD 97 85 E2 85 D& AB <SE> 
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3D-Grafik in Turbo Basic 


Dreidimensionale Computergrafiken sind immer 
häufiger Bestandteil von Film und Fernsehen. Mit 
dem Atari lassen sich bereits ansehnliche Grafi- 
ken berechnen und darstellen. 


icht nur in der Industrie, in der Entwicklung oder im 

CAD-Bereich, sondern auch in Film und Fernse- 

hen, besonders in der Werbung, bedient man sich 
immer mehr der »Bilder aus dem Computer«. Das ist kein 
Wunder, denn die Kosten für computeranimierte Filme sind 
drastisch gesunken. Computer, die solche Leistungen brin- 
gen, sind meistens teure Grafik-Workstations oder Super- 
computer wie die »Cray« und besitzen neben schnellen 
Programmen spezielle Hardware. Dadurch wird die Grafik 
wesentlich schneller und viele Grafik-Routinen überflüs- 
sig. Eins steht auf jeden Fall fest: Die Berechnung von drei- 
dimensionalen Grafiken mit verdeckten Kanten, Schattie- 
rung und Lichtreflexen braucht sehr viel Speicher und eine 
Menge Zeit. 

Mit diesem Beitrag wollen wir nicht die mathematischen 
Grundlagen der dreidimensionalen Grafik erklären. Dafür 
behandeln wir das sogenannte »Clipping« oder »Window- 
ing«, verdeckte Kanten und die Berechnung von Schlag- 
schatten einfacher Objekte. Da bestimmte Unterpro- 
gramme immer wieder Verwendung finden, werden die ein- 
zelnen Prozeduren gesondert in einem Satz erläutert. 

Steigen wir mitdem »Clipping«ein. Dahinter verbirgtsich 
nichts weiter als das Kappen von Linien, die über den Bild- 
schirmrand hinausgehen. Ganz soeinfach ist die Sache lei- 
der nicht. Ein wichtiger Faktor ist nämlich der Winkel, unter 
dem die Linie den Bildrand schneidet. Die Clipping- 
Routine berechnet nun im Prinzip die Länge und den Win- 
kel des nicht sichtbaren Teils einer Linie gegenüber dem 
Bildrand und liefert als Ergebnis die erste wieder sichtbare 
Koordinate dieser Linie. 

Der hier verwendete Clipping-Algorithmus wurde in 
‚Amerika von »Evans und Sutherland«, Pionieren der Com- 
putergrafik, entwickelt. Dieses Unternehmen liefert Com- 
putersimulationen hauptsächlich für militärische Zwecke. 

Doch nun zum Programm: Innerhalb der Routine wird 
mit Hilfe der Prozedur »CODE« zunächst ein 4-Bit-Code 
berechnet, wobei die Bits folgende Bedeutung haben: 

Bit 1: Punkt ist links vom Bildrand 

Bit 2: Punkt ist rechts vom Bildrand 
Bit 3: Punkt ist unterhalb vom Bildrand 
Bit 4: Punkt ist oberhalb vom Bildrand 

Die Variablen, die diese Bitkombinationen enthalten, 
sind C, C1 und C2. CZ dient hier nur als Tauschvariable. Die 
Bits sind entsprechend den Bitpositionen innerhalb eines 
Byte in den Variablen enthalten, Die Prozedur »CLIP« 
berechnet dann Länge und Winkel der verdeckten Linie(n). 
Dieser Prozeß wird solange durchlaufen, bis die Prozedur 
erkennt, daß die ganze Linie unsichtbar ist (Bedingung: 
VIS=0). Wenn Teile der Linie oder die ganze Linie sichtbar 
sind, so lautet die Bedingung VIS=1. Haben alle vier Bits 
den Wert 0, befindet sich der zu setzende Punkt oder die 
Linie innerhalb des Bildes und kann gesetzt werden. Die 
Variablen, die die Bildschirmgrenzen festsetzen, heißen: 


CLIPYB für den unteren Rand 
CLIPYT für den oberen Rand 
CLIPXL für den linken Rand 

CLIPXR für den rechten Rand 


Durch Verändern dieser Variablen (im Listing Zeile 40 
und 50) wird jeder beliebige Bildschirmbereich bestimmt. 


Das Objekt oder sichtbare Teile davon werden nur inn 
halb dieses Fensters dargestellt. Obwohl wir hier mit drei 
mensionalen Objekten arbeiten, ist die Clipping-Routine im 
Prinzip für zweidimensionale Objekte gedacht. Daaufdem 
Bildschirm aber zweidimensional abgebildet wird, kann die 
Routine verwendet werden. Es existiert zwar auch ein 
Cohen-Sutherland-Algorithmus, der dreidimensional ar- 
beitet. Er ist aber, nur von Interesse, wenn man sich in das 
Objekt»hinein«begeben will. Damit dieses dennoch mit der 
hier verwendeten Routine bedingt möglich ist, wird in der 
Prozedur »CALCPOINT« die Z-Koordinate eines Punktes 
automatisch auf 1 gesetzt, wenn diese vorher kleiner war. 
Damit wird verhindert, daß eventuell »vor« dem Bildschirm 
liegende Objekte durch falsche Berechnung ein Linien- 
chaos auf dem Schirm erzeugen. 


Bild 1. Ein bekanntes Zeichen in 3D 


Ein nächstes Problem bereitet die Berechnung der ver- 
deckten Kanten und Flächen (Bild 1). Über das »Hidden 
Line« oder »Hidden Surface«-Problem gibt es jede Menge 
Literatur, sogar Dissertationen und andere wissenschaftli- 
che Arbeiten. Entsprechend groß ist auch die Anzahl der 
Methoden und Algorithmen zur Bewältigung dieses Pro- 
blems. Die meisten Verfahren sind Scan-Algorithmen, bei 
denen das Bild Zeile für Zeile abgetastet, untersucht und 
dann entsprechend bearbeitet wird. Unsere Lösung ist ein 
Prioritäts-Algorithmus, der einen vertretbaren Kompromiß 
zwischen Aufwand und Genauigkeit darstellt. Es ist ein ver- 
einfachter »Newell-Sancha«-Algorithmus. Zur weiteren 
Erklärung betrachten wir zuerst die Koordinaten- 
Verhältnisse. 

Da wir hier dreidimensionale Objekte darstellen, braucht 
unser Koordinatensystem die Achsen X, Y und Z, wobei die 
Z-Koordinate senkrecht auf dem Bildschirm steht. Bei grö- 
Ber werdenden Z-Koordinaten bewegt man sich in den Bild- 
schirm hinein. 

Um verdeckte Kanten darzustellen, ist es von großer 
Bedeutung, wie das Objekt im Speicher des Computers 
abgelegt wird. Da wir von jetzt an nicht mehr nur Eck- 
punkte, sondern ganze Kanten des Objektes betrachten, 
müssen diese dem Programm als solche erkennbar sein. 
Zusätzlich zu diesen Informationen braucht der Computer 
noch Angaben über die Anzahl der Kanten jedes einzelnen 
Polygons und über die Verbindunggslinien. 

Ein Würfel besteht jetzt nicht mehr aus 8 Eckpunkten, 
sondern aus 6 Polygonen. Diese exakte Beschreibung des 
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Objektes ist eine grundlegende Bedingung, um eine 
Ansicht mit verdeckten Kanten zu berechnen. 

Der Algorithmus funktioniert folgendermaßen: Nachdem 
die Rotationen und alle anderen Transformationen beendet 
sind, sortiert die Prozedur »SORTPOLY« alle Polygone 
nach der Z-Koordinate. Dadurch bekommen die Polygone 
eine Priorität zugewiesen. Das Polygon, das am weitesten 


vom Betrachter entfernt ist, erhält die niedrigste Priori 

Die Polygone werden dann in der Reihenfolge ihrer Priorität 

auf den Bildschirm gebracht. Zuerst wird das Polygon der 

niedrigsten, zuletzt das Polygon der höchsten Priorität 
gezeichnet. Dabei ist zu beachten, daß nicht nur die äußere 

Umrandung des Polygons (Linien, die das Polygon bilden) 

gezeichnet wird, sondern das ganze Polygon in Form einer 

Fläche. Im Programm erledigt das die Prozedur »DDA«. 

Und schon ist die 3D-Darstellung mit verdeckten Kanten 

fertig. 

Die Sache hat aber leider einen Schönheitsfehler. Der 
Algorithmus funktioniert nämlich nicht immer. Es wird 
besonders dann kritisch, wenn sich Poiygone in der Z- 
Ebene überlappen. Betrachten wir dazu einmal Bild 2. 
Wenn man nach Z-Koordinaten sortiert, erhält Polygon 2 
eine höhere Priorität als Polygon 1, weil dessen Z-Wert grö- 
Ber ist als der von Polygon 2. Im Ergebnis würde zuerst 
Polygon 1, dann Polygon 2 gezeichnet werden. Von der Dar- 
stellung her ist das falsch. Dieser Fehler ließe sich durch 
Erweitern der Sortierkriterien zwar umgehen, was aber 
wieder auf Kosten der Rechenzeit gehen würde. Möchte 
man dennoch die Berechnungen korrekt durchführen, so 
ergeben sich mit Bezug auf Bild 2 folgende Sachverhalte: 

Polygon 1 verdeckt Polygon 2 (im folgenden P1 und P2 
genannt) nicht in dem Fall, 

- daß ein einleitender Test der Z-Werte ergibt, daß sich P1 
und P2 in der Z-Ebene nicht überlappen. 

- daß ein Test der größten und kleinsten X- und Y-Werte der 
einzelnen Polygone ergibt, daß sich diese in XY-Richtung 
nicht überlappen. 

- daß alle Kanten von Pi weiter vom Betrachter entfernt sind 
als die Ebene von P2. Hierzu werden die X- und Y-Werte 
von P1 in die Ebenengleichung (AX+BY+CZ+D=0) vonP2 
eingesetzt und die »Tiefe« von P2 berechnet. 

- daß alle Kanten von P2 näher am Betrachter sind als die 
Ebene, die P1 aufspannt. 

- daß ein kompletter Überlappungstest zeigt, daß sich die 
Polygone in X/Y-Richtung nicht überlappen. 

Werden alle diese Tests durchlaufen, muß man eine 
Menge Geduld haben. Versuche mit vielen Objekten haben 
ergeben, daß man trotz ausschließlichen Sortieren nach 
Z-Werten fast immer die korrekte Darstellung erhält. 

Die Berechnung von Schlagschatten ist gegenüber den 
verdeckten Kanten und Flächen eigentlich recht simpel. 
Grundkenntnisse der Vektorrechnung und analytischen 
Geometrie erleichtern das Verständnis. An der Mathematik 
kommt man (leider) nicht vorbei. Dazu betrachten wir nun 
Bild 3. 

Es sei | der Vektor vom Koordinatenursprung zur punkt- 
förmigen Lichtquelle mit den Koordinaten (LX,LY,LZ) und p 


der Vektor zu einem beliebigen Punkt P mit den Koordina- 

ten (PX,PY,PZ) einer beliebigen Kante eines Polygons. 

Dann gilt: 

1) r=p-! (Vektorsubtraktion) 

Wir erhalten einen neuen Vektor r mit den Koordinaten 
(RX,RY,RZ). Der Schlagschatten des Punktes P soll nun 
auf die Y-Ebene mit Y=0 fallen. Der sich ergebende Punkt 
soll PS heißen. Wir erhalten somit: 

2) PS=1+Srr 
Der Vektor vom Koordinatenursprung zum Punkt PS 

ergibt sich also aus dem Vektor | plus den verlängerten Vek- 

torr. Hierzu wird der Vektor r mit einem Skalar Smultipliziert 
und dann zum Vektor | geometrisch addiert. Da wir wissen, 
daß die Y-Koordinate des Punktes PS immer gleich 0 sein 

muß, ergibt sich für S eine lineare Gleichung in Y: 

3) 0=LY+S=RY oder LY+S+RY=0 => S=-LY/RY 
Bildlich gesehen ist der Schlagschatten eines Polygons 

eine Projektion dieses Polygons auf eine Ebene, in diesem 

Fall die Ebene Y=0. 

Wem das alles zu theoretisch ist, der betrachte Bild 3. 
Dann sollte einiges klarer erscheinen. 

Als letztes kann man sich überlegen, daß der Schlag- 
schatten eines Objektes gleich der Summe der Schlag- 
schatten seiner Polygone ist. Zeichnen wir also zunächst 
jedes Polygon und dann den Schlagschatten des Polygons, 
so erhalten wir als Ergebnis das Objekt und den Schlag- 
schatten des Objekts. 

Das abgedruckte Programm (Listing 1) ist als solches 
zwarin sich abgeschlossen und lauffähig, essollaberauch 
eine Basis für weitere Experimente darstellen. Deshalb 
wurde bewußt auf aufwendige Menüs und »Kosmetik« ver- 
zichtet, weil das alles schließlich wertvollen Speicherplatz 
kostet. Des weiteren ist das ganze Programm in Basic 
geschrieben, so daß eine Adaption auf andere Computer 
keine großen Schwierigkeiten bereiten sollte. 

Zunächst zum Hauptprogramm. Die wichtigsten Varia- 
blen und Felder werden gleich zu Beginn des Programms 
in den Zeilen 80 bis 120 festgelegt. 

- Die Felder POLY__Z(100) und PRIO(100) enthalten Pri- 
orität und den größten Z-Wert der einzelnen Polygone, in 
diesem Fall für maxirnal 100 Einzelpolygone. 

- Die Felder SX, SY, SZ, X, Y enthalten die Koordinaten der 
Eckpunkte der Schatten und die transformierten Koordi- 
naten der Objekte oder Schattenpolygone. In diesem Fall 
darf jedes Polygon maximal 10 Eckpunkte besitzen. 

- In den Zeilen 100 und 110 befinden sich die Variablen für 
die Bildschirmbegrenzungen. Es sind: 

CLIPXL kleinste X-Koordinate (linker Bildrand) 

CLIPXR größte X-Koordinate (rechter Bildrand) 

CLIPYB_ kleinste Y-Koordinate (unterer Bildrand) 

CLIPYT größte Y-Koordinate (oberer Bildrand) 


Put. 
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Bild 2. Fläche P1 verdeckt P2 


Bild 3. Berechnung und Darstellung von Schlagschatten 


48 


Im Listing ist die Einstellung eines Atari Grafikstufe 8 
Screen mit 320x192 Punkten vorgegeben. 

In Zeile 120 befinden sich die Koordinaten der Lichtquelle 
(LX,LY,LZ) und die Y-Koordinate der Schattenebene (SP). 

Zur Anpassung an andere Computer ist folgendes zu 
beachten: 

-Die Anpassung an die verschiedenen Bildschirmgrößen 
erfolgt mit den Variablen CLIPXL, CLIPXR, CLIPYB, CLI- 
PYT. Diese sollten in Zeile 100 und 110 entsprechend verän- 
dert werden (zum Beispiel für Schneider oder Atari ST mit 
640*400 Punkten => CLIPXR=639, CLIPYT=399). 

- Sollen mehr als 100 Polygone verwendet werden, müs- 
sen die Feldvariablen POLY_Z und PRIO entsprechend 
dimensioniert werden. 

- Sollen mehr als 10 Eckpunkte pro Polygon verwendet 
werden, müssen die Feldvariablen SX, SY, SZ, X, Y ent- 
sprechend dimensioniert werden. 

In letzteren beiden Fällen muß man den vorhandenen 
Speicherplatz berücksichtigen. 

Die Transformation von Objekt- in Bildschirmkoordinaten 
erfolgt in der Prozedur »CALCSCREEN« in den Zeilen 800 
bis 840. Die Formeln hierzu lauten: 

- Zeile 810 : xc=(xv/2)*(T(O)/T(2))+(xh/2) 

- Zeile 820: yc=(xv/2)*(T(1)/T(2))+(xv/2), wobei xv=maxi- 
male Y-Koordinate und xh=maximale X-Koordinate ist. 
Die Transformation ist so ausgelegt, daß der Punkt 0,0 in 

der linken unteren Ecke liegt. Bei Computern mit dem 

Ursprung links oben muß der Wert yc noch einmal vom 

maximalen Y-Wert subtrahiert werden, um die korrekte 

Ansicht zu erhalten (siehe Zeile 830). Die transformierten 

Koordinaten befinden sich in den Variablen XC und YC. 
Die diversen GRAPHICS-Befehle im Listing dienen zur 

Umschaltung zwischen dem Grafikmodus mit und ohne 
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Textfenster. Auch diese Anpassung sollte keine Schwierig- 

keiten bereiten. Die Struktur der Prozeduren läßt sich ein- 

fach durch GOSUB und RETURN ersetzen. Gleiches gilt 
für die IF-, ELSE- und ENDIF-Blöcke. Probleme kann es 
allerdings beim UND-Operator in Zeile 3200 geben 

(..CA&CB...). Denn nicht jeder Computer verfügt über diese 

Funktion. 

Zum besseren Verständnis und damit eine eventuelle 
Umsetzung auch gelingt, hier eine Kurzbeschreibung der 
einzelnen Prozeduren. 

- PROC CLRMAT (480 bis 560) Löschen der Matrix MA,MB 
oder MC. 

- PROC INITMAT (580 bis 620) Initialisieren der Matrix MA. 
Die Elemente der Hauptdiagonalen werden mit 1 
beschrieben. 

- PROC MULTMAT (640 bis 780) Multiplizieren der Matri- 
zen MA und MB zu MC. 

- PROC CALCSCREEN (800 bis 840) Transformation der 
dreidimensionalen in zweidimensionale Koordinaten. 

- PROC CALCPOINT (860 bis 930) Multiplizieren einer 
Koordinate T mit der Transformationsmatrix MC. 

- PROC MOVE (950 bis 1030) 

Berechnen der Verschiebematrix MB zur Bewegung des 
Objektes. Übergabeparameter sind TX,TY und TZ. 

- PROC ROTATE (1050 bis 1300) 

Die Rotationsmatrix. Übergabeparameter sind ACHSE$ 
für die Achse und G in Gradmaß für den Winkel. 

- PROC SCALE (1320 bis 1390) Skalierungsmatrix mit den 
Parametern SX, SY und SZ. Durch Verändern kann das 
Objekt in allen drei Dimensionen gestaucht oder 
gestreckt werden. 

- PROC PERSPECTIVE (1410 bis 1460) Hier erfolgt eine 
perspektivische Anpassung an den Bildschirm. Durch 
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Kg Size 5050 Program) [2} Abdechabe fr Decoder 

Niot dran Ardvork Ko” Commander Weihglosik. 990 
Cohen ovrskomic neh * X 990 doyaick Quiche! 13.) 
Komik 02990 | Joysick Quick As (mi Mirschabe) 2% 
Kenedy Appnach 028% | IeyickMagren (mi Higeschelee) 230 


1 Sonderungeboslnge Vorrat pic Vesondinsenkis DM 150, &,-Nachnone], 3,50 Verse) drüber 
venendkere Lite gegen DM 0,0 n Bemaren 


Verändern der Variablen wird der Fluchtpunkt verscho- 

ben. Am besten mal ausprobieren. 

- PROC CLRT (1480 bis 1520) 

Löschen des T-Feldes. 

- PROC VIEW (1540 bis 1680) 

Erstellung einer Ansicht ohne verdeckte Kanten. 

Wie schon erwähnt, soll das ganze als Experimentierba- 
sis dienen. Außerdem findet sich noch die gesondert abge- 
druckte Prozedur »ANIMATE« (Listing 2). Diese läßt sich mit 
»ENTER ” D1:ANIMATE.LST ”« in das Programm einbinden 
(Achtung: Dabei die Zeilennummern nicht verändern!). Mit 
Hilfe dieser Prozedur kann man Animationssequenzen 
zusammenstellen (Einzelbildaufnahmen). 

Die Ablage der Koordinaten und Polygon-Informationen 
erfolgt in DATA-Zeilen. Diese werden unabhängig vom 
eigentlichen Programm geschrieben und dann als geson- 
dertes File mit »LIST”D1:(NAME).IMG”« auf Diskette 
gespeichert. Später, nachdem das Hauptprogramm mit 
LOAD geladen wurde, kann das gewünschte Objekt-File 
mit Hilfe des ENTER-Befehls nachgeladen werden. Fol- 
gendes ist zu beachten: 

- Die erste Zeilennummer ist immer 10000, und in dieser 
Zeile befindet sich immer die Anzahl aller Polygone des 
Objektes. 

- Für jedes Einzelpolygon ist ein »Zehnerblock« vorgese- 
hen, der immer bei ganzen Vielfachen von 10 beginnt 
(Also 10010, 10020, 10030...). 

- In diesen Zeilen befindet sich dann die Anzahl der Eck- 
punkte des Einzelpolygons. 

- Alle weiteren Zeilen enthalten die Koordinaten des Poly- 
gons. Hierbei erfolgt die Numerierung in Einserschritten. 

- Zuletzt sollte noch eine Abschlußzeile eingefügt werden, 
die den Wert 0 enthält. 

Ein einfaches quadratisches Polygon müßte so defi- 


10020 DATA 4: Ein Quadrat hat bekanntlich 4 Eckpunkte 
10021 DATA X1,Y1,Z1: Koordinate des 1. Eckpunktes 
10022 DATA X2,Y2,Z2: Koordinate des 2. Eckpunktes 
10023 DATA X3,Y3,Z3: Koordinate des 3. Eckpunktes 
10024 DATA X4,Y4,Z4: Koordinate des 4. Eckpunktes 
10030 DATA.....(nächstes Polygon) 

Auf diese Art und Weise ensteht eine bestimmte Ord- 
nung in der Zeilennumerierung. So würde zum Beispiel 
die Zeilennummer 10232 entsprechend der letzten drei 
Ziffern besagen: 23. Polygon, 2. Eckpunkt. Hierzu finden 
sich auch drei Beispiele abgedruckt (Listing 3 bis 5). 

Die Bedienung des Programms ist recht simpel. Fol- 
gende Kommandos stehen zur Verfügung: 

MOVE, ROTATE, SCALE, VIEW und HIDE. 

Die Parameter X, Y und Z beziehen sich bei den Befeh- 
len MOVE und SCALE auf Koordinaten, beim ROTATE- 
Kommando sind die Winkel für jede Achse einzugeben. 

Eines ist unbedingt zu beachten: Nachdem alle 
Bewegungs- und Rotationskommandos ausgeführt sind, 
muß für die korrekte Darstellung immer die Anpassung- 
sprozedur »PERSPECTIVE« aufgerufen werden. Diese 
gewährleistet die korrekte Positionierung des Flucht- 
punktes. Eine Kommandoeingabe kann so aussehen: 
command: ROTATE (RETURN) :Der Rotationsbefehl 
X,YY: 10,20,0 (RETURN) :Rotiere 10 Grad über X und 20 
Grad über Y 
command: MOVE (RETURN) :Der Move Befehl 
X,Y,Z:0,0,10 (RETURN) :Bewegung um 10 Einheiten in Z- 
Richtung 
command: PERSPECTIVE (RETURN) :Perspektivische 
Anpassung 
command: VIEW :Darstellung als Drahtmodell 
command: HIDE :Darstellung mit Schlagschatten und 
verdeckten Kanten. 


niert werden: (Theo Janssen/rz/hf) 
1@ REM {CTL OILCTL RITCTL RILCTL_RICETL 248 ENDIF <u2> 
RILETL RICCTL RICETL RICCTL RICCTL RITET 250 IF KOMs(1,3)="ROT" <6P> 
L_RICETL RICCTL_RICCTL RYCCTL RICETL RIC 260 INPUT "X,Y,2:>"5AA,AB,AC <Ix> 


ETL RITETL R><CTL RITETL RICCTL RICETL.R 
IXETL_RYCCTL_ RICCTL_ RITETL RITETL RICETL 


_RITCTL RYTCTL E3 <iD> 
28 REM {SHIFT =} 3D SRAFIK PAKET 

{SHIFT =} <EG> 
3@ REM {SHIFT => BY THED JANSSEN 1986/58 
12 {SHIFT_ =) <FR> 


42 REM {ETL_ZI{CTL RICETL RITETL RILCTL 
RILETL_RITETL RYICETL RITETL RIXETL RITCT 
L_RILCETL RYTCTL RYTETL RITETL RITCTL RYT 
ETL RITETL RYLETL_ RICCTL RICCTL RITETLR 
FLCTL_RITETL RICETL RICETL RI{CTL RITETL 


_RITETL RILETL CH <LE> 
S® REM <9S> 
68 REM <IT> 


7@ DIM MA(3,3) ,MB(3,3) „MECS,SI 
88 DIM P(3),T(39) ,POLY_Z (128) „PRi0(129) ,5 


<LA> 


x(19) „SY(1@) ,SZ(1@ <PH> 
98 DIM ACHSES (1) „KOM$(29) ‚X(18) ,YC1@) <XH> 
18@ CLIPXL=@:CLIPXR=319 <DK> 
118 CLIPYB=B:CLIPYT=191 <Ar> 
122 LX=B:LY=78:L7=8:SP=-18 <FD> 
138 GRAPHICS S:EXEC SET_COL <Hg> 
148 COLOR 1 <XR> 
15@ EXEC INITMAT <DS> 
168 INPUT "command>";KOM$ <K6> 
178 IF KOM$(1,3)="VIE" THEN CLS #6:EXEC 

VIEW <no> 


182 IF KOM$(1,35)="INI" THEN EXEC INITMAT <MH> 
19@ IF KOM$(1,3)="PER" THEN EXEC PERSPEC 


TIvE <Zu> 


208 IF KOMS(1,3)="MOV" <EE> 
21@ INPUT "X,Y,Z3>"z3AA,AB,AC <IN> 
220 TX=AA: TY=AB: TZ=AC <RT> 
239 EXEC MOVE <oK> 


278 ACHSE$="X":G=ARtEXEC ROTATE <B6> 
288 ACHSES="Y":G=ABzEXEC ROTATE <c0> 
298 ACHSES="Z":G=ACHEXEC ROTATE <DH> 
392 ENDIF <us> 
318 IF Kons(1,3)="Sca" <In> 
328 INPUT "X,Y,2:>"3AR,AB,AC <2a> 
338 SX=AA: SY=AB:SZ=AC <ap> 
348 EXEC SCALE <FS> 
358 ENDIF <vc> 
36® IF KOM$(1,3)="HID" <Hn> 
378 GRAPHICS 24 <XY> 
389 EXEC SET_COL <HK> 
39Q@ EXEC HIDDENVIEW <ru> 
408 GET KEY <I> 
412 GRAPHICS 40 <uH> 
428 EXEC SET_COL <L2> 


439 ENDIF 

448 IF KOM$(1,35)="LIG" THEN INPUT "NEWAL 
ISHTAPOSITIONACX,YyZI 2 "5 LX,LY,LZ 

459 IF KOM$(1,35)="SHA" THEN INPUT "SHADO 


<uz> 


<ac> 


W(S) ONAY-HEIGHT: "SP <HP> 
468 GOTO 168 <09> 
470 —— <JT> 
48Q PROC CLRMAT <IU> 
498 FOR I=2 TO 3 <HR> 
5@2 FOR J=2 TO S <I> 
519 IF MAT=1 THEN MA(J,I)=2 <AE> 
520 IF MAT=2 THEN MB(J,I)=8 <BH> 
538 IF MAT=3 THEN MC(J,ID=2 <cu> 
549 NEXT J <CH> 
S55@ NEXT I <6F> 
568 ENDPROC <KT> 
57a — <gu> 
588 PROC INITMAT <HN> 
598 MAT=1:EXEC CLRMAT <KA> 
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MA(Q,@=1:MA(1,1)=1 
MA(2,2)=1:MA(3,3)=1 
ENDPROC 

PROC MULTMAT 
MAT=3:EXEC CLRMAT 
FOR K=@ TO 3 

FOR J=8 TO 3 

FOR I=2 TO 3 


MELT,KI=ME(I,KI+MACT,KIAMBCI, DD 


MACI,DI=ME(I,D) 
NEXT I 
NEXT I 
ENDPROC 


PROC CALCSCREEN 


XC=95.5#(T(@) /T(2))+159.5 
YC=95.5#(T(1) /7(2))+95.5 


YC=191-YC 
ENDPROC 

PROC CALCPOINT 
FOR J=@ T0 3 
FOR I=@ TO 3 


T{N=TEN+PIDI=MELI,D) 


NEXT I 
NEXT J 
IF T(2)<1 THEN T(2)=1 


PROC ROTATE 
DEG 
MAT=2:EXEC CLRMAT 


1282 IF ACHSES="X" 

1292 MB(2,W=1:MB(3,3)=1 
112® MB(1,1)=C0S(8) 

1112 MB(2,1)=-SIN(G) 
1120 MB(1,2)=SIN(G) 

1138 MB(2,2)=C0S (6) 

1148 ENDIF 

1159 IF ACHSES="y" 


1168 MBt1,1) 


MB(3,3=1 


117@ MB(Q,9)=C0S(6) 
1182 MB(2,D)=SIN(G) 
1198 MB(B,2)=-SIN(G) 
1298 MB(2,2)=C0S(6) 


ENDIF 


1228 IF ACHSES="Z" 


MB(2,2)=1:MB(3,5)=1 


1242 MB(8,8)=C0S(6) 
1259 MB(1,0)=-SIN(G) 
1268 MB(@,1)=SIN(G) 


1279 MBc1,1 


IS (6) 


128@ ENDIF 
1299 EXEC MULTMAT 
1382 ENDPROC 


1328 PROC SCALE 

1332 MAT=2:EXEC CLRMAT 
1348 MB(3,3)=1 

135@ MB(B,B)=SX 

1568 MB(1,1)=SY 

1378 MB(2,2)=S2 

1388 EXEC MULTMAT 


PROC PERSPECTIVE 
MAT=2:EXEC CLRMAT 
MB(Q,@)=4:MB(1,1)=4 
MB(2,2)=1:MB(3,3)=1 
EXEC MULTMAT 
ENDPRDC 


PROC CLRT 

FOR I=@8 TO 3 
TtII=@ 

NEXT I 

ENDPROC 

PROC VIEW 

RESTORE (18288) 
READ P_NUMBER 

FOR K=1 TO P_NUMBER 


READ E_NUMBER,XP,YP,ZP 


XA=XP: YA=YP: ZA=ZP 
FOR L=2 TO E_NUMBER 
READ XL,YL,ZL 

EXEC SHOWLINE 
XP=XL: YP=YL: ZP=ZL 
NEXT L 

XL=XA: YL=YAs ZL=ZA 
EXEC SHOWLINE 

NEXT K 

ENDPROC 


PROC SORTPOLY 
RESTORE (18908) 
READ P_NUMBER 

FOR R=1 TOD P_NUMBER 
POLY_Z(RI=@ 

NEXT R 


TEXT 2,188, "sorting=Polygonsa:* 
ER 


FOR R=1 TO P_NUMBI 
TEXT 152,182; R 
ZGES=8 

READ E_NUMBER 

FOR S=i TO E_NUMBER 
READ X,Y,Z 


PIO=X:P(1I=Y:P(DI=Z:P(FI=1 


EXEC CLRT 

EXEC CALCPOINT 
ZGES=ZGES+T (2) 

IF TC2) >POLY_Z(R) 
POLY_Z(RI=T(2) 
ENDIF 

NEXT S 
ZMIT=ZGES/E_NUMBER 


POLY_Z(RI=POLY_Z (RI +ZMIT 


NEXT R 
FOR R=1 TO P_NUMBER 
PRIO(RI=1 


FOR R=1 TO P 


IF (POLY_Z KR) >=POLY_Z(W) THEN W=R 


NEXT R 

PRIO(SI=W 

POLY_Z (W)=-9E-2@ 
NEXT S 

ENDPROC 

PROC HIDDENVIEW 
EXEC SORTPOLY 
CLS #6 

RESTORE (198299) 
READ P_NUMBER 
FOR Q=1 TO P_NUMBER 


RESTORE (199898+(PRIO(Q)=19)) 


READ E_NUMBER 
FOR S=I TO E_NUMBER 
READ X,Y,Z 

Pi@= 


EXEC CLRT 

EXEC CALCPOINT 
EXEC CALCSHADOW 
Listing 1. »3D-Grafik« 


:P(1)=Y:P(2=Z:P(D=1 


2218 EXEC CALCSCREEN 

2228 X(SI=XC:Y(S)=YC 

2258 NEXT S 

2248 FOR S=1 TO E_NUMBER 
2258 T=S+1 

2268 IF T>E_NUMBER THEN T=1 
2278 
2288 
2298 CL=B:EXEC DDA 

2388 NEXT S 

2318 FOR S=1 TO E_NUMBER 
2328 T=5+1 

2338 IF T>E_NUMBER THEN T=1 
23548 XF=X(5) 2 YF=Y(S) 

2358 X6=X(T):YG=Y(T) 

2368 COLOR 1 

2379 EXEC CLIP 

2388 IF VIS 

2598 PLOT XF,YF=DRAWTO X6,Y6 
24238 ENDIF 

2418 NEXT S 

2428 EXEC PLOTSHADOW 

2438 NEXT O 

2442 ENDPROC 


2460 PROC DDA 
247@ LENGTH=ABS (XJ-XH) 


StYI-YH) 
249@ XIND=(XJ-XH) /LENSTH 
2522 YINC=(YJ-YH) /LENGTH 
251@ XD=XH+2.5: YD=YH+B.5 
252® FOR POINT=1 TO LENGTH 
2538 FOR N=1 TO E_NUM 
2548 COLOR CL 

2558 XF=XD: YF=YD: XG=X (N) :YG=Yın) 
2568 EXEC CLIP 

2578 IF vIS 

25898 PLOT XF,yF 

2598 DRAWTO XG,YG 

2688 PLOT INT(XF) ,INT{YF) 

2612 DRAWTO X6,YG 

262@ ENDIF 

26538 NEXT N 

2448 
265@ VI 
266@ NEXT POINT 

267% ENDPROC 

2680 -—- 

2692 PROC SHOWLINE 

2782 EXEC CLRT 

2718 P(@)=XP:P(1)=YP:P(DI=ZP:P(FI=1 
272® EXEC CALCPOINT 

273® EXEC CALCSCREEN 

2748 XF=XC: YF=YC 

275@ EXEC CLRT 

2768 PiO)=XL:P(1)=YL:P(DI=ZL:P(HI=1 
2778 EXEC CALCPOINT 

278® EXEC CALCSCREEN 

2799 X6=XC: YE=YC 

2808 EXEC CLIP 

2818 IF vIs 

28298 PLOT XF,YF 

283® DRAWTO XG,YG 

2848 ENDIF 

2852 ENDPROC 

2848 — 

287@ PROC SET_COL 

2882 SETCOLOR 2,2,12 

2898 SETCOLOR 4,2,12 

2908 SETCOLOR 1,8,8 

2918 ENDPROC 

2928 
2930 PROC CODE 
2942 C=® 

295® IF X<CLIPXL 
2968 C=8 

2970 ELSE 

2988 IF X>CLIPXR 
2998 2=4 

3988 ENDIF 


2488 IF ABS(YJ-YH) >LENGTH THEN LENSTH=AB 


3818 ENDIF 

3928 IF Y<CLIPYB 
3238 C=C+2 

3048 ELSE 

3@5@ IF Y>CLIPYT 
3862 C=C+1 

3870 ENDIF 

sasp ENDIF 

3@78 ENDPROC 


3118 PROC CLIP 

3128 vIS=1 

313@ X=XF:Y=YF 

3142 EXEC CODE 

3152 CA=C 

3168 X=X6: Y=Y6 

3179 EXEC CODE 

3188 CB=C 

3198 WHILE (CA<>@) OR (CB<>@) 
3208 IF (CA&LCBI<>B THEN LET VIS= 


:C2=CA 

C=@ THEN LET C=CB:CZ=CB 

(C/8) >=1 
YF+YB-YF)*CCLIPXL-XF) / (XG-XF) 


3280 IF (L/8)>=9.5 

3298 Y=YF+(YE-YF)#(CLIPXR-XF) / (XG-XF) 
3382 X=CLIPXR 

3318 C=C-4 

3320 ENDIF 

3338 IF (0/8) >=9.25 

334 X=XF+(XG-XF)#CLIPYB-YF) / (YG-YF) 
Y=CLIPYB 

-2 

337@ ENDIF 

338@ IF (1/8) >=9.125 

339@ X=XF+(XG-XF)*(CLIPYT-YF)/CYE-YF) 
3488 Y=CLIPYT 


Y:EXEC CODE 


3478 XG=X:YG=Y:EXEC CODE 
3488 CB=C 

3498 ENDIF 

3502 WEND 

351@ ENDPROC 


3539 PROC CALCSHADOW 

3549 SX(SI=LX-T(@) 

3559 SY(SI=LY-T(1) 

356B SZ(SI=LZ-T (2) 

3578 SKALAR=-((LY+(-5P))/SY(S)) 
3SBB SX(S)=LX+SX 15) 4SKALAR 
3598 SY(SI=SP 

3608 SZ (S)=LZ+SZ (S) «SKALAR 
3618 ENDPROC 


3638 PROC PLOTSHADOW 

1 TO E_NUMBER 
KS:TCLISSYIS) 
3660 T2I=SZ(S):T(9=1 
3678 EXEC CALCSCREEN 

3688 X(S)=XC:Y(SI=YC 

3698 NEXT S 

3788 FOR S=1 TO E_NUMBER 
3718 T=S+1 

372® IF T>E_NUMBER THEN T=1 
3738 XH=X(S):YH=Y (5) 

3748 XI=SX(TI:YJ=Y(T) 

3758 CL=1:EXEC DDA 

376@ NEXT S 

377@ ENDPROC 

3782 -- 


<SL> 
<v9> 
<HS> 
<TI> 
<HO> 
<HR> 
<TD> 
<T6> 
<PF> 
<vI> 
<IH> 
<AB> 
<KXH> 
<XP> 
<HI> 
<Yıt> 
<XxY> 
<ur> 
<X0> 


<HT> 
<KH> 
<XX> 
<PJ> 
<BY> 
<PR> 
<Lf> 
<TH> 
<ECc> 
<IH> 
<SE> 
<JE> 
<SsU> 
<06> 
<va> 
<LL> 
<I2> 
<T9> 
<As> 
<H6> 
<Tr> 
<Ic> 
<SH> 
<JZ> 
<EF> 
<H0> 
<Tu> 
<FH> 
<XE> 
<TR> 
<T9> 
<OR> 
<UH> 
<SR> 
<XF> 
sT> 
<AH> 
<IL> 
<ul> 
<Hf> 
<HG> 
<0T> 
<ur> 
<HZ> 
<oH> 
<IB> 
<FY> 
<IS> 
<F6> 
<KK> 
<NX> 
<an> 
<cL> 
<YB> 
<BA> 
<TZ> 
<KD> 
<PN> 
<HS> 
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455 IF KOM$(1,3)="ANI" THEN EXEC ANIMATE <AJ> 


5170 PMZ=(Z_PE-Z_PS)/STEP <S1> 
5188 FOR BILD=@ TO STEP <HZ> 


S®22 PROC ANIMATE <KY> 

S212 GRAPHICS B:EXEC SET_COL <VP> 5190 EXEC INITMAT <U6> 
5222 PRINT "STARTPOSITION" <RS> 5282 G=X_WS-ACHSES="X":EXEC ROTATE <RE> 
S@S@ INPUT "Winkels (x,y,2)"5X_WS,V_WS,Z_ WS: ACHSES="Y"EXEC ROTATE <aK> 
ws <er> WS: ACHSES="Z":EXEC ROTATE <Pa> 
5242 INPUT "Position (x,y,2)";X_PS,Y_PS, _PS: TY=Y_PS:TZ=Z_PS <vo> 
z_PS <EF> 5242 EXEC MOVE <KZ> 
SQSQ PRINT :PRINT :PRINT "ENDPOSITION" <ON> 525@® EXEC PERSPECTIVE <PC> 
S@6Q INPUT "Winkels(x,y,2)";X_WE,Y_WE,Z_ 5268 EXEC HIDDENVIEW <Hs> 
WE <ZN> GET KEY <ou> 
5078 INPUT "Position (x,y,2)";X_PE,Y_PE, X_WS=X_WS+WMX <Pa> 
Z_PE <To> Y_WS=Y_WS+WMY <RC> 
5888 PRINT :PRINT :PRINT <ay> Z_WS=Z_WS+WMZ <RM> 
S®9® INPUT "inswelchem_Zeitraum. (sec.)"; X_PS=X_PS+PMX <EY> 
Tı <CR> Y_PS=V_PS+PMY <CK> 
S1O2 GRAPHICS 24:EXEC SET_COL <uSs> Z_PS=Z_PS+PMZ <HH> 
5118 STEP=T1x25 SAX> CLS #6 <EI> 
5129 WMX=(X_WE-X_WS) /STEP <ZA> NEXT BILD <6X> 
S132 WMY=(Y_WE-Y_WS) /STEP <am> ENDPROC <PE> 
S142 WMZ=(Z_WE-Z_WS) /STEP <BY> _ <HI> 
S1S® PMX=(X_PE-X_PS) /STEP <PK> 

S16ß PMY=(Y_PE-Y_PSI/STEP <an> Listing 2. »ANIMATE.LST« 

19228 DATAx& <32> 12841 DATAs1,1,-1 <12z> 
12218 DATA <IF> 18942 DATA1,1,1 <IP> 
12211 DATAx-1,1,-1 <RB> 12943 DATAs1,-1,1 <un> 
18812 DATası,ı <ıs> 19244 DATA1,-1,-1 <RZ> 
18213 DATAsı -1 <RI> 19050 DATA-A <av> 
12814 DATA--1,-1, <yu> 182851 DATAs-1,1,1 <HI> 
10228 DATA4 <I> 19852 DATAs1,1,1 <ıT> 
18821 DATA-1,1,1 <Ic> 19853 DATAX1,1,-1 <HN> 
18222 DATAs-1,1,1 <Auc> 19054 DATAs-1,1,-1 <S6> 
18223 DATAs-1,-1,1 <RS> 10269 DATA <J2> 
19824 DATAs1,-I,1 <I> 190861 DATA1,-1,1 <uK> 
19250 DATA.A <IN> 19062 DATA-1 <sD> 
19@31 DATAs-1,1,1 <HB> 12863 DATA.- <29> 
12832 DATA.-1,1,-1 <RO> 18864 DATA.1, <SH> 
12253 DATA--1,-1, <YX> 20200 DATA.2 <H6> 
19254 DATAs-1,-1,1 <SB> 

12242 DATA.A <IR> Listing 3. »WUERFEL.IMG« 

10822 DATAx19 <KE> 12273 DATA44,0,4 <ıy> 
18218 DATAzA <IF> 18874 DATAA2,2,4 <LF> 
198911 DATAs-1,1,-1 <RB> 10282 DATA-S <av> 
198212 DATAs1,1,-1 <LS> 19281 DATA.2,2,2 <30> 
122813 DATAs1,-1,-1 <RI> 12282 DATA.3,2,3 <Lx> 
1Q214 DATAs-1,-1,-1 <ru> 192835 DATA.4,0,2 <Ku> 
12222 DATAsA <99> 12298 DATA-S <J2> 
12921 DaTai,i,i <Icy 12271 DATA.2,0,4 <Kr> 
18222 DATAx-1,1,1 <HC> 10892 DATA«S,2,3 <HB> 
12823 DATA--1,-1,1 <RS> 12093 DATA-4,0,4 <H6> 
18224 DATAs1,-1,1 <I> 19128 DATA4S <15> 
19832 DATA <In> 121@1 DATA42,8,2 <IL> 
19251 DATAs-1,1,1 <HB> 10182 DATA4S,2,3 <KU> 
18232 DATAs-1,1,-1 <RO> 18183 DATA.2,0,4 <KB> 
19233 DATAs-1,-1,-1 <YX> 19118 DATA <Iu> 
192834 DATA--1,-1,1 <SB> 19111 DATA44,0,2 <IN> 
12848 DATA-A <IR> 19112 DATA.3,2,3 <KY> 
19041 DATAs1,1,-1 <LZ> 12113 DATA24,0,4 <LD> 
10842 DATAs1,1,1 <Ip> 19129 DATAS <IA> 
19843 DATAr1,-1,1 <um> 12121 DATA.-2,0,-2 <RY> 
18244 DATA41,-1,-1 <RZ> 18122 3,2,-3 <un> 
12250 DATAA <av> 19123 4,8,-2 <TI> 
18051 DATA-1,1,1 <u3> 18138 <IE> 
12852 DATA1,1,1 <IT> 121351 DATA-2,0,-4 <TH> 
12853 DATA1,1,-1 <HN> 12132 DATA-3,2,-3 <ua> 
12254 DATAs-1,1,-1 <S6> 10133 DATA--4,0,-4 <Un> 
1026D DATAzA <J2> 19148 DATAsS <a1> 
12861 DATA1,-1,1 <MK> 18141 DATAs-2,8,-2 <56> 
10862 DATAx-1,-1,1 <SD> 19142 DATAs-3,2,-3 <uu> 
18263 DATA.-1,-1,-1 <29> 10143 DATA.-2,2,-4 <UA> 
1@@64 DATAr1,-1,-1 <SH> 18158 DATA.S <In> 
12272 DATAsA <KD> 192151 DATA-4,2,-2 <TK> 
12271 DATA.2,0,2 <IK> 

19872 DATA4,2,2 <KH> Listing 4. »KOERPER.IMG« 
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18152 DATA.-3,2,-3 <ur> 18181 DATA.-2,0,-2 <sH> 
18153 DATA.-4,8,-4 <VE> 12182 DATA-3,-2,-3 <CR> 
190168 DATAS <90> 18185 DATA.-2,0,-4 <ua> 
18161 DATA-2,0,-2 <Ss0> 18199 DATAsS <KC> 
192162 DATA.-3,-2,-3 <cI9> 19191 DATA.-4,8,-2 <UA> 
18163 DATA.-4,0,-2 <TY> 198192 DATA-3,-2,-3 <cv> 
1817@ DATA.S <aU> 12193 DATAÄ-4,0,-4 <vu> 
12171 DATA.-2,8,-4 <uc> 20290 DATA.D <H6> 
18172 DATA.-3,-2,-3 <CH> 
12173 DATA.-4,8,-4 <un> 
18188 DATA.S <ır> Listing 4. »KOERPER.IMG« (Schluß) 
<I0> 18141 DATA-.8,1.4 <Ccp> 
<IF> 18142 DATAs.8,1.4,.2 <SF> 
<AK> 192143 DATAx.4,1-4,.2 <QaK> 
<HD> 19144 DATA..4,1.4,-.2 <BE> 
<ZK> 12158 DATA«A <aY> 
<nı> 12151 DATA-.4,1.4,-.2 <AT> 
<II2 19152 DATAs.4,1.4,.2 <ay> 
190821 DATAL-.2,-1.4,.2 <HN> 19153 DATAx.4 <uY> 
19822 DATA. 2,1.4,.2 <22> 19154 DATAx.4, <xS> 
10223 DATA..2,1.4,.2 <02z> 18168 DATA4 <KC> 
18024 DATAx.2,-1.4,.2 <AE> 18161 DATAr.8,1.4,— <CX> 
12239 DATA.A <IN> 18162 DATAx.8,1.4,.2 <SH> 
18031 DATA.-.2,-1.4,-.2 <AS> 19163 DATAL.8,-.2 <PC> 
18932 DATAx.2,-1.4,-.2 <HG> 19164 DATA..8, <Zu> 
12033 DATA..2,-1.4,.2 <AD> 12170 <KG> 
19834 DATAx-.2,-1.4,.2 <HG> 18171 <nJ> 
192042 DATA.A <IR> 18172 <KK> 
19841 DATAs-.2,1.4,-.2 <HK> 18173 <Ur> 
12842 DATA... 2,1.4,-.2 <ZR> 18174 <XH> 
19843 DATAx.2,1.4,.2 <PH> 12182 <KK> 
189244 DATA.-.2,1.4,.2 <AR> 12181 <AF> 
12258 DATA2A <av> 12182 <Y6> 
<HZ> 18183 <EP> 
<AL> 12184 <16> 
<ay> 12198 <Ko> 
<BP> 18191 <AI> 
<92> 18192 DATAs-1.8,-1.4,.2 <IA> 
18261 DATAr.2,-1.4,.2 <AF> 18193 DATA--1.8,-1.4, <X2> 
190062 DATA. 2,1.4,.2 <PK> 190194 DATA4-.8,=.2,-.2 <NG> 
190863 DATAx.2,1.4,-.2 <AE> 10200 DATAı4 <IH> 
18064 DATAx.2,-1.4, <HC> 18281 DATAA-.4,-.2,.2 <HY> 
19878 DATAsA <KD> 18282 DATAx-1.2,-1.4,.2 <DH> 
<ac> 10283 DATAs-1.2,-1.4,-.2 <T6> 
<0D> 18284 DATA--.4,-.2,-.2 <aV> 
<Kn> 18218 DATA <IL> 
<uv> 18211 DATAL-1.8,-1.4,—.2 SuM > 
<KH> 18212 DATAs-1.2,-1.4,-.2 <TF> 
<or> 18213 DATAs-1.2,-1.4,.2 <Da> 
<BZ> 18214 DATA-1.8,-1.4,.2 <HH> 
<I> 12228 DATA.A <IP> 
<AR> 18221 <ru> 
<KL> 10222 <HZ> 
<aK> 19223 <DA> 
<EH> 18224 <6L> 
<cI> 18238 <IT> 
<ov> 18251 <09> 
<JE> 18232 <HO> 
<Hz> 18233 DATAs1.2,-1.4,.2 <PD> 
<AH> 18234 DATA-1.8,-1.4,.2 <S0> 
<KF> 18248 DATA.A <uX> 
<98> 18241 DATA2.8,-.2,.2 <aN> 
<I> 10242 DATA.1.8,-1.4,.2 <sI> 
<PH> 19243 DATAL1.8,-1.4,-.2 <60> 
<DE> 19244 DATA-.8,-.2, <ZR> 
SZn> 18258 DATA <KB> 
<HA> 18251 DATAs.4,-.2,.2 <HR> 
<an> 198252 DATA41.2,.-1.4..2 <P6> 
19121 DATAx.8,1.4,-.2 <CH> 19253 DATAs1.2,-1.4,-.2 <Dn> 
18122 DATA..4,1.4,-.2 <Am> 10254 DATAL.4,-.2,-.2 <Xv> 
192123 DATAx.4,-.2, <XB> 19262 DATA=4 <KF> 
19124 DATA..8,-.2, <26> 10261 DATA1.8,-1.4,—.2 <CH> 
10132 DATA=4 <JQ> 18262 DATA1.2,-1.4,-.2 <DL> 
12131 DATAx.8,1.4,.2 <RH> 190263 DATAL1.2,-1.4,.2 <PP> 
19132 DATAL-4,1.4,.2 <aB> 19264. DATAx1.8,-1.4,-2 <TA> 
190133 DATAL.4,—.2,.2 <ma> 20922 DATA.O <H6> 
12134 DATAL.8,-.2,.2 <ov> 
1214@ DATAA <uU> Listing 5. »LOGO.IMG« 
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Benutzerfreundliche 
Programme 


Um ein Programm benutzerfreundlich zu gestal- 
ten, bedarf es viel Zeit. Zeit, die eigentlich besser 
genutzt werden könnte. Mit unserem Programm 
sparen Sie diese Zeit, denn Menüsteuerungen 
sind damit spielend leicht programmierbar. 


aben Sie schon einmal versucht, ein Programm 

möglichst benutzerfreundlich zu gestalten? Nor- 

malerweise geschieht dies über Menüs, die vom 
‚Anwender abgerufen werden und ihm die jeweilige aufge- 
rufene Funktion erklären. Schön und gut. Nur, bis man sein 
Programm miteinem Menü versehen hat, vergeht meistens 
nochmal die gleiche Zeit wie bei der Entwicklung des 
gesamten Programms. 


Kurzbeschreibung: 

mit NiLlre dieses Programms koennen 
Sie mit einem Full-Screen-Editor 
BASIS Code fuer Bildschirmmasken 
generieren. 


File Name: B Memory: BCAB 


Minimum Code: N 


Das »Screen-Definition-Utility« läßt sich in Programme ein- 
binden und erzeugt Bildschirmmasken mit allen Abfragen 


Um Ihnen die Arbeit bei der Gestaltung von Menüs zu 
erleichtern, haben wir das »Screen-Definition-Utility« veröf- 
fentlicht, mit dem sich einfach und komfortabel eine kom- 
plette Bildschirmmaske aufbauen läßt. In diese lassen sich 
an beliebiger Stelle Abfragen nach Zahlen oder Zeichen- 
ketten einbauen. Anschließend schreibt unser Programm 
verschiedene Files auf Diskette, die in eigene Programme 
einbindbar sind und die die Bildschirmmaske mit allen 
Abfragen erzeugen. 


»SDU« für meisterhafte Menüs 


Das Programm ist in Turbo-Basic geschrieben (Listing 1). 
Es benötigt noch ein weiteres File. Dieses ist als AMPEL- 
Listingabgedruckt (Listing 2) undmuß auf der gleichen Dis- 
kette wie das Screen-Definition-Utility unter dem Namen 
»SDU« vorhanden sein. 

Nach dem Starten des Programms werden Sie nach dem 
Filenamen gefragt, unter dem die einzelnen von Screen- 
Definition-Utility erzeugten Files abgelegt werden. Geben 
Sie bitte keine Extension an, da das Programm mehrere 
Files mit dem angegebenen Namen erzeugt, zur Unter- 
scheidung aber jeweils eine andere Extension einsetzt. 


Anschließend fragt das Programm, ob das erzeugte 
Basic-Programm in kurzer oder langer Form gespeichert 
werden soll. Bei der langen Form wird aus jeder Zeichen- 
folge, die zwischen zwei Leerzeichen steht, ein eigener 
Print-Befehl erzeugt, die kurze Fassung verwandelt jede 
40-Zeichen-Zeile vom Bildschirm in einen Print-Befehl. 

Memory fragt nach der hexadezimalen Adresse, ab 
der Screen-Definition-Utility ein Maschinensprache-Pro- 
gramm erzeugt, das dann in eigenen Programme einge- 
bunden wird. Dieses Maschinenprogramm lädt eine vorge- 
fertigte Eingabemaske von der Diskette. Die Adresse muß 
zwischen $9000 und $CC40 liegen. Drücken Sie hier ein- 
fachnur <RETURN>, wird die Adresse $BC40 angenom- 
men. 

Schließlich folgt die Frage nach dem Mark-Zeichen. Mit 
diesem Zeichen markieren Sie in der Eingabemaske Stel- 
len, an der Ihr späteres Programm eine Eingabe fordern 
soll. Dieses Zeichen ist normalerweise das <@>-Zeichen 
(Klammeraffe, Affenschaukel, wie auch immer), Sie kön- 
nen jedoch jedes beliebige andere Zeichen dafür definie- 
ren. 


Beliebige Abfragepositionen 


Nach dieser Eingabe gelangen Sie in den Editor, mitdem 
sich Eingabemasken konstruieren lassen. Falls auf der Dis- 
kette schon eine Maske unter dem im Eingangsmenü ein- 
gegebenen Namen vorhanden ist, wird diese automatisch 
geladen. Mit dem Cursor lassen sich an verschiedenen 
Stellen Zeichen setzen. Versehentlich gesetzte Zeichen 
löschen Sie wieder mit der <SPACE >-Taste. Eine ganze 
Zeile wird mit der Tastenkombination <SHIFT> und 
<DELETE> gelöscht, und folgende Zeilen werden nach- 
gerückt. Die Bildschirmposition in der rechten untersten 
Ecke kann nicht belegt werden, da der Bildschirminhalt 
sonst eine Zeile nach oben rücken würde und damit der 
Bildschirmaufbau zerstört würde. Mit <ESC> verläßtman 
den Editor. Steht der Cursor beim Drücken von <ESC> in 
der obersten linken Ecke, werden die folgenden beiden 
Programmmteile nicht ausgeführt, und man befindet sich 
sofort im »Order«-Programm. 

Steht der Cursor jedoch beim Verlassen des Editors an 
einer anderen Position, wird die Maske auf der Diskette 
gespeichert und anschließend die »Searching«-Routine 
aufgerufen. Diese durchsucht die Maske nach im Editor 
eingebenen Mark-Zeichen. Findet die Search-Routine ein 
Mark, so fragt sie nach dem Variablennamen, den 
sie der an dieser Stelle eingebenen Zeichenfolge oder Zahl 
geben soll. 

Sind alle Marks gefunden und der ganze Bildschirm 
durchsucht, wird die Order-Routine aufgerufen. Mit dieser 
legt man die Reihenfolge fest, in der die einzeinen Abfra- 
gen auf dem Bildschirm erscheinen sollen. Drücken Sie 
gleich zu Anfang <ESC> und wurde vorher die 
Searching-Routine nicht aufgerufen, so wird die Einstel- 
lung von einer vorher vorhandenen Maske übernommen 
und gleich der nächste Programmteil angesprungen. 
Ansonsten steht der Cursor auf der ersten Eingabe. Wollen 
Sie, daß diese Marke nicht als erstes in Ihrem Programm 
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abgefragt wird, springen Sie mit <+> oder <*> die 
nächste Marke an. Mit <RETURN> wird dann die Marke 
als nächstes in der Abfragereihenfolge festgelegt. Mit 
<ESC> löschen Sie eine komplette Abfragereihenfoige. 

Ist die komplette Abfragereihenfolge der Marken gespei- 
chert, so springt das Programm schließlich in das 
Generate-Menü. Hier werden Sie nach der ersten Zeilen- 
nummer gefragt, unter der die Eingabemaske in Ihrem Pro- 
gramm stehen soll, sowie nach dem Abstand der Zeilen- 
nummern. Anschließend wird das Eingabemasken-Pro- 
gramm auf Diskette gespeichert. 

Auf Ihrer Diskette stehen dann insgesamt sechs Files, die 
das Eingabemaskenprogramm benötigt. Um die Maske in 
Ihr Programm einzubinden, geben Sie die Befehle»ENTER 


"D:Filename.BAS”« sowie ENTER ”D:Filename.INP”« 
ein. In Ihrem Programm muß dann am Anfang noch der 
Befehl »BLOAD ”D:Filename.ASM”« vorkommen. Jetzt 
wird die definierte Eingabemaske ohne Probleme geladen 
und ausgeführt. (Daniel Sebastianelli/hf) 


|: Steckbrief 
Programm: Screen-Definition-Utility 
Sprache: Turbo-Basic 
Eingabehilfe: Prüfsumme und AMPEL 
Datenträger: Diskette 


ı@ POKE 186,191 

20 DIM PIC_NAMES(15) ‚BAS_NAMES(15) ‚MEM_N 
AMES (15) „EXT_NAMES (15) „INP_NAMES (15) „ASM 
_NAMES (15) „NAMES (11) < 
38 DIM 7(88,43) ‚A$(4B) „KEYS(41) „KEYISC1Z 

» <ZA> 
49 KEY$="$(,)0123456789ABCDEFGHIJKLMNOPQ 


RSTUVWXYZ_" <LR> 
58 KEY1$="{ESC DELYT{ESTC CTL <YXESC CTL > 

I1ESC SHIFT >2{ESC CTL DELI{ESC SHIFT DE 

LILESC CTL +3XESC CTL #ILESC CTL -ITESC 

ETL =IKESC ESCH-" <2Q> 
68 POKE 82,8 <6c> 
7® FOR I=@ TO 8 <EK> 
82 READ AS <KY> 
9B FOR J=@ TO 17 <1v> 
108 POKE $0608+J+1#20,ASC (AS (I+1)) <EH> 
11@ NEXT J <6D> 
120 NEXT I <FV> 
139 GRAPHICS 8 <SH> 
148 DL=DPEEK (568) <AK> 
158 POKE DL-2,112 <yL> 
168 POKE DL-1,78 <FE> 
17® POKE DL+2,112 SIR> 
182 DPOKE S68,DL-2 <av> 
192 BILD=DPEEK (88) <I8> 
20@ *# MENUE <FB> 
218 CLS <Au> 
220 POKE 752,8 <IH> 
238 POKE 729,40 <or> 
248 POKE 730,5 <xaY> 
25® DPOKE DL,$2608+168 <SR> 
268 CLOSE #1 <LK> 
278 POSITION 16,18 <DB> 
288 PUT 158 <PF> 
298 I=LEN(NAMESI+1 <LR> 
30@ TRAP #ERROR <DT> 
318 OPEN #1,4,2, "D:SDU" <ur> 
328 BGET #1,BILD,957 <HE> 
3358 CLOSE #1 <LF> 
348 PUT 158 <or> 
35® NAMES="D: " <> 
368 I=2 <GE> 
378 REPEAT <Dn> 
388 I=I+ <as> 
390 REPEAT <De> 
480 # INPUT_NAME <KP> 
418 POKE 782,64 <NZ> 
428 POKE 694,0 <LE> 
438 TRAP #INPUT_NAME:GET KEY <av> 
448 IF 1=3 <an> 
458 OK=INSTR (KEY$,CHR$ (KEY) ‚14) <zs> 
468 ELSE <rc> 
478 OK=INSTR (KEY$,CHR$(KEY) „4) <Ta> 
482 ENDIF <v9> 
498 IF KEY=126 AND 193 <HR> 
508 I=I-1 <au> 
518 PUT KEY <RX> 
522 ENDIF <ur> 
538 UNTIL _OK>® OR KEY=155 AND 193 <BE> 
542 PUT KEY <sD> 


558 IF KEY<>155 THEN NAMES (I)=CHRS(KEY) <P6> 
S6® UNTIL I=12 OR KEY=155 <HO> 
578 NAMES=NAMES (1,I-1) <HK> 
58@ POSITION 16,28 <r9> 
592 PUT 78 <ur> 
&0@ REPEAT <D8> 
612 # INPUT_MIN_CODE <YK> 
<0D> 
<LI> 
648 TRAP #INPUT_MIN_CODE:GET MIN_CODE <62> 
65® UNTIL MIN_CODE=74 DR MIN_CODE=78 OR 
MIN_CODE=155 <XI> 
66@ IF MIN_CODE=1S5 THEN MIN_CODE=78 <KP> 
67@ POSITION 16,28 <rı> 
658 PUT MIN_CODE <IQ> 
692 MEMORY=48192 <LE> 
788 As="BL40" <RT> 
718 POSITION 33,18 <cD> 
72a ? As <HN> 
738 POSITION 33,18 <CH> 
748 PUT 158 <PC> 
758 1=® <FS> 
768 REPEAT <D0> 
778 I=I+1 <au> 
788 REPEAT <DS> 
790 # INPUT_MEMORY <EL> 
898 POKE 792,64 <DB> 
812 POKE 694,8 <L6> 
828 TRAP #INPUT_MEMORY:GET KEY <vı> 
85@ HEX=INSTR (KEYS (5,2®) „CHR$(KEY)) <CH> 
842 IF KEY=126 AND I>ı <uT> 
858 I=I-1 <RH> 
868 PUT KEY <SK> 
879 ELSE <rı> 
888 IF I=i <0E> 
BIO ? "ana <ED> 
988 POSITION 33,18 <CcD> 
918 PUT 158 <or> 
928 ENDIF <Vc> 
938 ENDIF <VE> 
948 UNTIL HEX>B® OR KEY=155 AND I=ı <ER> 
952 FUT KEY <SI> 
962 AS(I)=CHRS KEY) <uR> 
978 UNTIL KEY=1SS AND I=1 OR I=4 <OB> 
988 IF I=4 <PJ> 
992 MEMORY=DEC (AS (1,49) <ID> 
1000 MEMORY= (MEMORY+36864+ABS (MEMORY-3S68 
64))/2 <sL> 


1018 MEMORY= (MEMORY+52288-ABS (MEMORY-522 
88))72 

1928 ENDIF 

185@ POSITION 33,18 
1842 ? HEX$# (MEMORY) 
185@ MARK=64 

1860 POSITION 33,22 
1878 PUT MARK 

1289 REPEAT 

1278 REPEAT 

1120 # INPUT_MARK 
111® POKE 7902,64 
1122 POKE 694,2 


1518 


TRAP #INPUT_MARK:GET KEY 
OK=INSTR (KEY$ (5,48) „CHR$ (KEY) 
OK1=INSTR (KEY1$,CHR$(KEY)) 
UNTIL OK=@ AND OKi=@ OR KEY=155 
IF KEY<>155 THEN MARK=KEY 


POSITION 33,20 

PUT MARK 

UNTIL KEY=1SS 
MARK=PEEK (BILD+833) 
POKE 729,18 
POKE 738,1 

PUT 158 

CLS 

I=LEN (NAMES) +1 
MEM_NAMES=NAME: 
MEM_NAMES (1) 
PIC_NAMES=NAMES 
PIC_NAMES(I)=" PIC" 
BAS_NAMES=NAMES 
BAS_NAMES (I) =".BAS" 
EXT_NAMES=NAMES 
EXT_NAMES(I)=" EXT" 
INP_NAMES=NAMES 
INP_NAME$ (I) =". INP" 
ASM_NAMES=NAMES 
ASM_NAMES (T)=" „ASM" 
TRAP #EMPTY 

OPEN #1,4,8,PIC_NAMES 
BGET #1,BILD,959 

POKE 93,PEEK (BILD) 

* EMPTY 

CLOSE #1 

PUT 158 

DPOKE DL,s2628 

REPEAT 

REPEAT 

* INPUT_CHAR 


MEM" 


TRAP #INPUT_CHAR:GET KEY 
UNTIL (PEEK(84)<>23 OR KEY<>155) AN 


D KEY<>125 


IF PEEK(84)=23 AND FEEK(85)=39 THEN 


31 

POKE 99,119 
PUT KEY 
UNTIL KEY=27 


IF PEEK(84)=@ AND PEEK(85)=@ 


TRAP #MENUE 

OPEN #1,4,0,MEM_NAMES 
GET #1;5X 

FOR I=® TO X 

FOR J=@ T0 2 

GET #15Z 

IF J=1 

GET #1;5ZH 
Z=Z2H*256+Z 

ENDIF 

Z(1,0=Z 

NEXT J 

I=J-1 

REPEAT 

J=J+1 

SET #152 

Z(1,N=Z 

UNTIL Z=8 

NEXT IL 

MFLAG=1 

CLOSE #1 

TRAP #ERROR 

OPEN #1,4,2,PIC_NAMES 
BGET #1,BILD,959 
CLOsE #1 

ELSE 

POKE 752,1:PUT 27 
TRAP #ERROR 

OPEN #1,8,8,PIC_NAMES 
BPUT #1,BILD,957 
CLOSE #1 

DPOKE DL,$9698+40 
IM_BILD=BILD-1 
x=-1 


Y=1 

REPEAT 
IM_BILD=IM_BILD+1 
CHR=PEEK (IM_BILD) 


INV_CHR=(CHR+128) MOD 256 


POKE IM_BILD, INV_CHR 


IF CHR<>91 AND (CHR>@ OR MIN_CODE=7 


IF CHR=MARK 
DPOKE DL ,$B600+29 
CHR=@ 


Z(X,Y)=IM_BILD-BILD 
Yayıı 

ZI(X,Y9=8 

Yaysı 

REPEAT 

REPEAT 

# INPUT_VAR 

POKE 792,64 

POKE 694,8 

TRAP #INPUT_VAR:GET KEY 
=5 


OK=INSTR (KEY$ „CHR$(KEY)) 


ENDIF 

IF KEY=12& AND I>5 
I=1-1 

POKE #8600+20+1,8 
ENDIF 

UNTIL OK>® OR KEY=155 


IF KEY(>126 AND KEY<>155 


POKE $O6B@+20+1,KEV-32 
I=1+1 

ENDIF 

UNTIL KEY=155 OR 1=19 
DPOKE DL,$8600+48 

FOR J=5 TO I-i 


Z(X,Y) =PEEK ($D600+20+J) +32 
=Y+1 

POKE $2609+20+J,B 
NEXT I 

Y=1 

ELSE 

IF Y=1 

X=X+1 
ZCX,Y9=IM_BILD-BILD 
Yay+ 

z(ıx,vd=1 

Y=Y+1 

ENDIF 

IF CHR=44 THEN CHR=8 
IF CHR<64 
ASC_CHR=CHR+32 

ELSE 

IF CHR>63 AND CHR<9& 
ASC_EHR=CHR-64 

ELSE 

IF CHR>127 AND CHR<192 
ASC_CHR=CHR+32 


ELSE 

IF CHR>191 AND CHR<224 
ASC_CHR=CHR-64 
ELSE 
ASC_CHR=CHR 
ENDIF 

ENDIF 

ENDIF 

ENDIF 

Z(X,Y) =ASC_CHR 
Y=Y+1 


IF (IM_BILD-BILD+1) MOD 498=® THEN Y 


NSTR (KEYS ,CHR$ (KEY) „14) 


ENDIF 
ELSE 

Y=1 

ENDIF 

POKE IM_BILD,CHR 

IF X>87 

GRAPHICS ® 

PUT 25 

7 "ERROR-.MEHR-ALSSSB.FELDER" 
? "VERSUCHEAMINIMUM-CODE: 
END 

ENDIF 

UNTIL CHR=91 

IF X=-ı THEN 60# MENLE 
POKE IM_BILD,@ 

TRAP #ERROR 

OPEN #1,8,8,EXT_NAMES 
BPUT #1,BILD,959 

cLose #1 

TRAP #ERROR 

OPEN #1,8,8,ASM_NAMES 
PUT #1,255 

PUT #1,255 

PUT #1,MEMORY MOD 256 
PUT #1,MEMORY DIV 256 
PUT #1, (MEMORY+958) MOD 25& 
PUT #1, (MEMORY+958) DIV 256 
BPUT #1,BILD,959 

CLUSE #1 

ENDIF 

DPOKE DL,$2480+68 

REPEAT 

POS=Z (Z,1+BILD 

IF z(z,2)=1 

CHR=PEEK (POS) 

ELSE 

CHR=31 

ENDIF 

INV_CHR=(CHR+128) MOD 256 
POKE POS, INV_CHR 

TRAP #ERROR 

GET KEY 

IF KEY=27 

IF MFLAG=1 

EXIT 

ELSE 

FOR I=8 TO x 

Z(1,8)=8 

NEXT I 

L=® 

ENDIF 

ELSE 

IF MFLAG=1 

FOR I=® TO x 

2<1,8)=8 

NEXT I 


7=7+1 
IF Z>X THEN Z=® 
UNTIL Z(2,D)=@ OR L-1=X 
ELSE 
IF KEY=45 
REPEAT 
z=1-1 
IF Z<@ THEN Z=X 
UNTIL 2(Z,8)=8 
ELSE 
IF KEY=155 
=L+1 
Z(Zz,89=L 
G0# RIGHT 
ENDIF 
ENDIF 
ENDIF 
ENDIF 


3459 POKE POS,CHR 

3468 UNTIL L-1=X 

3478 PUT 158 

3488 CLS 

3498 POKE 752,8:PUT 158 

3582 DPOKE DL,sB428+190 

3518 POSITION 13,8 

3522 ? “Line=Number:"; 

3538 POSITION 16,18 

3542 ? "Increase:"; 

355@ REPEAT 

3568 POSITION 26,8 

3570 ? "1B", 

3588 POSITION 26,18 

3598 7 "ıD“, 

I6Q® REPEAT 

361® # INPUT_LINE 

362@ POSITION 26,8 

3638 TRAP #INPUT_LINE= INPUT “";LINE 

3649 LINE=ABS(TRUNC (LINE) ) 

365® UNTIL LINE>=@ AND LINE<32766 

3668 POSITION 26,8 

3678 ? LINE, 

368@ REPEAT 

3692 # INPUT_INC 

37@@ POSITION 26,10 

371@ TRAP #INPUT_INC+ INPUT ""zINC 

372® INC=ABS TRUNC (INC) ) 

3738 UNTIL INC>® 

3748 UNTIL LINE+((X+1)#2+1) #INC<32767 

375® POSITION 26,1@ 

3760 ? INC, 

3778 2=2 

378@ TRAP #ERROR 

3798 OPEN #1,8,9,BAS_NAMES 

3822 OPEN #2,8,@, INP_NAMES 

GRAPHICS“D" 
3 "ABRAPHICSAD“ 

3838 LINE=LINE+INC 

3848 ? #2;LINEz ".OPEN“#1,4,0, 

Eszumun 

3858 LINE=LINE+INC 

3868 7 #2;5LINE; "„BGET-#1,DPEEK (88) „959" 

3878 LINE=LINE+INC 

3888 ? #2;LINE; " „POKEAIS,PEEK (DPEEK (88) ) 


3EXT_NAM 


3898 LINE=LINE+INC 


3968 UNTIL Z(1,8)=2 

3778 DX=1(1,1) MOD 42 

398@ DY-Z(1,1) DIV 40 

399® ? #15LINE; "POSITIONA"EDX5","5DV5": 
POKE99, 119" 

4288 IF Z(1,2)=® THEN ? #25 LINE; "-POSITI 
ON"; DX3",";DV3 "sPOKEA99,119" 

4210 LINE=LINE+ING 

4922 J=3 
4238 IF z(1,2 
ADD ? RIHLINES "ADur""; 

4858 LINE=LINE+INC 

4260 REPEAT 

4078 7 #15CHRS(ZCL,I>; 

4080 IF Z(1,J)=34 THEN ? #1; CHR$ (34); 
49898 J=J+1 

4198 UNTIL Z(1,)=® 

211m 7 Kizten;" 

4120 ELSE 

4130 AS="DUMMY:“ 

4148 ? #15LINE; "ATRAP-"5LINE-ING ": INPUT 


4158 ? #25 LINES "-TRAP2"SLINE-INC; "= INPUT 


4168 LINE=LINE+INC 
4178 REPEAT 
4188 FLAG=@ 


<65> 
<vo> 
<PG> 
<UN> 
<SAa> 
<IL> 
<IH? 
<HS> 
<PE> 
<LC> 
<FA> 
<LH> 
<ZR> 
<aI> 
<zx> 
<EN> 
<EQ> 
<Lm> 
<B2Z> 
<vS> 
<ay> 
<Ly> 
<vI> 
<FL> 
<or> 
<PO> 
<KH> 
<IT> 
<Hf> 
<BK> 
<a2> 
<u2> 
<AB> 
<RN> 
<YP> 
<KD> 
<a6> 
<as> 
<BI> 


<0c> 
<BP> 
<HA> 
<BV> 


<Hs> 
<c8> 
ZLN> 
<Tc> 
<EZ> 
<UK> 
<FF> 
<LH> 
<IF> 
<BL> 
<EV> 


<sI> 


<FD> 
<AD> 
<uF> 
<uv> 
<YH> 
<BA> 
<EU> 
<NJ> 
<cA> 
<ıv> 
<T6> 
<PA> 
<TF> 
<CX> 


<IH> 


<IT> 
<BF> 
<EZ> 
<uT> 


IF Z(I,J-1)=36 THEN A$(6,7)= 


7 #13A$; 

? #25 A$; 

J=3 

REPEAT 

? #1;CHRS(ZII,ID); 
? #25CHRS(Z(1,J))5 
g=J+1 

UNTIL Z(I,9)=@ 


UNTIL Z(1,0)=8 

IF FLAG=® 

J=3 

REPEAT 

2 #15CHR$LZ(I,IYIE 
7 #25CHRS(ZCI,D): 


? #15CHR$(159) 35 
? #25CHR$ (155); 
ENDIF 
ENDIF 
=-1 
UNTIL Z=X 
TRAP #ERROR 
CLOSE #1 
OPEN #1,8,0,MEM_NAMES 
x=X-1 


AS(1,LEN(A$)-1) 
ASC1,LEN(AFI-1) 


4598 I=J-1 

A620 REPEAT 

4618 J=J+1 

4628 PUT #15Z2(1,9 
4638 UNTIL Z(1,9)=® 


4720 ? "ENTER."""3BAS_NAME$ 


NP_NAMES 
3 ASMNAMES 


4780 DL_OLD=DPEEK (DL) 

4798 DFOKE DL,$9682+148 

4800 POKE 764,255 

4818 GET KEY 

482@ DPOKE DL,DL_OLD 

4838 TRAP #ERROR 

4848 GUTO ERL 

4850 DATA.e@ee@ERedi toraeeeeee 
4860 DATA.nameZeeeaeaeegeaeeee 
4878 DATA.@@@eeesearchingeeeee 
A880 DATA.@@@EEREEOr der eaaaeae 
4890 DATAsnameZ@@eeeeeeeeeeeeee 
4900 DATALL@EEERgenerateqaeeae 
4918 DATA.@@@eEEEEr eadyeaaeeee 
4920 DATA.@disc@ok_@press@keye@ 
4938 DATA.eeeeee@emenu@eeeaeee 


<HX> 
<EO> 
<LJ> 
<NR> 
<Tz> 
<FQ> 
<NN> 
<LyY> 
<XF> 
<xI> 
<xaY> 
<un> 
<HP> 
<NJ> 
<AE> 
<Ic> 
<av> 
<ND> 
<ZE> 
<KH> 
<0B> 


52 

52 

52 

52 45 
@2 20 B3 88 AS 8@ B2 <DS> 
AS 88 AS 80 AE 80 80 <ar> 
&® A4 88 AS BB A6 88 <B7> 
88 AE 80 A9 80 B& 20 <95> 
82 AF 88 AE 88 88 7C <84> 
@0 20 »u vo va zn ma <ue> 
©2 2D DB Da 20 ES 80 <43> 
82 A? BO AC 80 9 80 <59> 
88 59 08 B8 88 BO aD <99> 
20 22 OO 20 20 DB 7C <EC> 
52 52 52 32 52 52 52 <6B> 
57 52 52 52 52 52 52 <99> 
52 52 52 52 52 52 52 <sF> 
52 52 52 52 52 57 52 <51> 
32 52 52 52 52 52 44 <60> 
@@ 20 22 20 2D 0@ 28 <DE> 
?7C 2Q 22 20 aa SD 72 <59> 
67 72 61 &D &D 69 65 <B5> 
74 22 © 20 28 7C 28 <c7> 
@2 22 2m 2a Da Ba 7C <sc> 
22 20 22 20 ®O BD DO <u6> 
7C ®B 20 DO 2@ Da B0 <Er> 
22 00 76 6F 6E ®D @B <61> 
@©0 22 DD DD BO 7C DO <D»> 
20 20 02 ©@ BO BB 7C <64> 
02 2 DD DO DO Da DR <AE> 
7C 24 61 6E 69 65 6C <B> 
33 65 62 61 73 74 69 <BC> 
&E 65 6C 60 69 70 08 <6B> 
20 22 ©© BO BO 28 7C <BE> 
20 20 22 22 2O 28 DB <58> 
7C 20 a2 2a me ma me <a1> 
@@ 10 12 er 18 17 DO <54> 
@©@ DD DO Da aa 7C DB <2B> 


SEIREÄHSSERSUSNEHABENTIEEZEISTESTTETTTBENHHKSER 


@® 7C <B6> 0290:00 08 08 20 Bo ao om 
20 20 <a@> 0298:20 20 20 20 28 28 28 
52 52 <BE> B2AD: 00 00 DD vo zu aa au 
52 52 <89> ®2A8:7C 20 80 20, 20 Do 20 
43 00 <41> 2259: 00 00 00 00 ou aa 0 
02 7C <DE> 022B8:00 BD 00 22 oo vo vo 
02 80 <28> 22C0:00 @0 22 20 aa va a0 
ea 88 <72> 82C8:20 20 20 20 aa vo 20 
20 80 <7A> 82D8:7C @2 908 00 90 26 #9 
20 a0 <82> 8208:65 88 ZE 61 &D 65 1A 
98 7C <a6> 02E9: 00 00 @O QO za ma ou 
62 65 <2C> B2EB:D0 2D 65 &D AF 72 79 
62 75 <SB> O2F0:08 22 25 14 18 @B 28 
08 28 <Fö> B2F8:7C 38 28 30 20 aa ae 
22 Da <An> 2508:09 2a 2a aa za am ma 
28 7C <2E> 2388:00 29 80 oa za vo a8 
02 28 <Fa> 2518:28 28 28 20 20 oo ma 
20 88 <c2> 0518:00 90 29 va na 2a ao 
22 89 <CA> @328:7C ®® 2D 69 6E 697 &D 
oo 09 <D2> @3528:6D 98@ 25 64F 64 65 1A 
@8 7C <56> 2558: 2E 29 2a a0 2a vo do 
00 28 <B4> 0338:0@ 90 @@ 2D &1 72 6B 
69 65 <96> 0340:00 28 20 29 vo vo mu 
6F 67 <AA> 0548:7C 98 20 a0 20 22 20 
6B 6F <IF> 0359:00 280 20 a aa za mo 
22 7C <aD> 2358:00 22 28 28 88 2a oo 
28 &D <C3> 0562:00 90 09 go za pa oa 
65 6D <73> 2368:28 22 22 pa oa zu 38 
33 63 <7C> 0378:5A 52 52 52 52 52 52 
64 69 <58> 8378:52 52 52 52 52 52 32 
88 7C <cc> 83890:52 52 52 S2 52 52 52 
29 25 <DF> '0388:52 52 52 52 52 52 36 
66 75 <24> 8390:72 73 BE 12 BE 18 52 
64 73 <Ab> 0598:00 aa aa Bo oa 20 a8 
61 73 <SE> 05AQ:00 20 90 no aa oa mu 
08 7C <2C> u5AB: Ba De 20 29 20 Do 28 
65 72 <9C> 0350:990 22 2» aa zu za 20 
oa am <ın> 23B8:80 20 DO Bo 99 za 2a 
02 08 <&C> 

02a 09 <74> 

RE Listing 2. »SDU«. Bitte mit 
22 2a <ac> AMPEL eingeben. 
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Prüfsummer paßt auf 


Unser Prüfsummer für alle Atari-Computer ist 
besonders komfortabel. Mit Hilfe dieses Pro- 
gramms lassen sich Listings auf Anhieb korrekt 
und problemlos eingeben. 


ag der Atari-Prüfsummer auf den ersten Blick 

etwas umfangreich erscheinen, der Aufwand 

lohnt sich. So legt der Prüfsummer zum Beispiel 
eine zusätzliche Statuszeile am oberen Bildschirmrand an. 
Diese Zeile ist von Basic aus nicht zu erreichen, also auch 
nicht zu löschen. Weiterhin können Sie den Prüfsummer 
auch für die Eingabe von Turbo-Basic-XL-Programmen ver- 
wenden. Beachten Sie hierzu die besonderen Hinweise! 

In dem abgedruckten Listing finden Sie gewisse Zeichen 
vor, die der Atari nicht kennt. Es handelt sich dabei einer- 
seits um Dreiecke und andererseits um geschweifte Klam- 
mem. Die Dreiecke stellen grundsätzlich Leerstellen dar; 
Texte, die zwischen geschweiften Klammern stehen, reprä- 
sentieren Atari-spezifische Grafik- und Sonderzeichen. Ein 
Beispiel: »ESC CTL=« entspricht dem ASCil-Zeichen 29. 
Um dieses Zeichen einzugeben, betätigen Sie zunächst 
die <ESC>-Taste und dann gleichzeitig die 
<CONTROL >- und die <= >-Taste. Daraufhin erscheint 
das gewünschte Zeichen auf dem Bildschirm. Eine kom- 
plette Aufstellung aller Grafik- und Sonderzeichen finden 
Siein der Tabelle. Weiterhin gibt es unterstrichene Zeichen, 
die eine inverse Darstellung bedeuten. Bevor Sie ein sol- 
ches Zeichen eingeben, müssen Sie unbedingt die Atari- 
Taste betätigen. 
Bild 1 zeigt eine Programmzeile in der üblichen Darstel- 

lungsweise und zum Vergleich dazu eine in konvertierter 
Form. 


50 POSITION 11,2: 
Serron 4, 


> 13 
Srrtirilename STzZe":posırz 


485® POSITION 11,237 "tCTL ZIECTL RICCTL 

RILETL RICCTL RILCTL RICCTL RICCTL RICC 
TL RILCTL RILCTL RICCTL RICCTL RICCTL RP 
ZETL RI{SHIFT =7":POSITION 4,5? "FILENA 
MEXAAÄSIZE" POSITION 2,7 


Bild 1. Oben eine Programmzeile, wie sie auf dem Bildschirm 
erscheint. Darunter dieselbe Zeile in der konvertierten Form. 


Geben Sie also zunächst das Prüfsummenprogramm 
von Basic - oder Turbo-Basic XL - aus ein. Zwar werden 
sämtliche DATA-Werte nach dem Start mit RUN überprüft, 
aber »nobody is perfect«. 

Kontrollieren Sie also das Prüfsummenprogramm vor 
dem Start noch einmal. Speichern Sie es dann auf einem 
Datenträger. Jetzt können Sie das Programm beruhigt mit 
RUN starten. Aus den DATA-Werten wird nun ein 
Maschinen-Programm erzeugt. Sollte sich beim Eintippen 
des Programms ein falscher DATA-Wert eingeschlichen 
haben, so wird die entsprechende Zeilennummer auf dem 
Bildschirm angezeigt. 

Nach der Korrektur starten Sie das Programm erneut mit 
RUN. Wurde das Programm fehierlos eingegeben, stehen 
folgende Funktionen zur Auswahl: 

1. Das Prüfsummen-Programm als Maschinensprache- 
File auf Diskette schreiben. Nach Betätigung der Taste 1 


fragt das Programm nach dem Narnen für das Prüfsum- 
menprogramm. Tippen Sie also beispielsweise »PRUE- 
FER.OBJ« ein, so wird nach Druck auf die 
<RETURN>-Taste das Prüfsumfnenprogramm auf Dis- 
kette gespeichert. Der Computer schließt den Vorgang mit 
der »READY«-Meldung ab. 

Um das Prüfcode-Programm verwenden zu können, 
löschen Sie den Programmspeicher zunächst mit NEW. 
Vom DOS-Menü aus (einfach DOS eintippen und die 
<RETURN>-Taste betätigen) wählen Sie dieOption Lund 


Pruescose : > < 
1808 PRoc Rechnen 
== 


cca 25 59 W. Kress/ue 


ia:xZ-a:yzza 
a ca 


YezzmilBer-Cr NRZ VZ-CH 
KZ=NMnZ ıwzSNmrZe Terre 
2. 


SE 
<oron crı mo zuex3 


zw 
GRSGHIENHPLOT span rE.zerıe 
IF PEEKC7GED=23 THEM 


35 
yexT sparre 


Bild 2. So sollte der Bildschirm nach dem Aktivieren des 
Prüfsummers aussehen 


geben den Namen des vorher erzeugten Maschinenpro- 
gramms ein. Jetzt wird das Prüfsummenprogramm in den 
RAM-Speicher geladen. Mit <B> gelangen Sie wieder 
zurück ins Basic. 

Aktiviert wird jetzt das Prüfsummenprogramm mit 
»?USR(1536)«. Am oberen Bildschirmrand erhalten Sie 
daraufhin eine zusätzliche Zeile mit dem Schriftzug »Prüf- 
code: > < (c)byW. Kress/wb«. Wie die Aufteilung des Bild- 
schirms unter Verwendung des Prüfsummenprogramms 
aussieht, zeigt Bild 2. 

2. Das Maschinenprogramm wird als Boot-File auf Kas- 
sette geschrieben. Das spätere Laden oder Booten gehtfol- 
gendermaßen vor sich: 

- bei ausgeschaltetem Computer die <START>-Taste 
drücken und Computer einschalten, 

-nach Ertönen des Summtons die <START >-Taste loslas- 
sen, 

- nacheinander die <PLAY>-Taste des Kassettenrecor- 
ders und die <RETURN >-Taste betätigen, 

- das Prüfsummenprogramm wird geladen und automa- 
tisch gestartet 

3. Programm beenden. Das Maschinenprogramm wird 
nicht gespeichert. 

Das Prüfsummenprogramm wird in der Page 6 abgelegt, 
einem vor NEW geschützten Speicherbereich. Abschalten 
kann man es durch Drücken von <SYSTEM RESET>, ein 
Neustart erfolgt mit dem Aufruf: »?USR(1536)«. 

Sobald das Prüfsummenprogramm aktiviert ist, können 
beim Zugriff aufein Speichermedium Bildstörungen auftre- 
ten. Um dies zu vermeiden, brauchen Sie nach dem Laden 
oder nach dem Aufruf mit »?USR(1536)« nur »POKE 
39998,30« einzugeben. 

Wurde das Programm von Kasseite gebootet, wird es 
jedesmal nach Betätigung der <SYSTEM RESET >-Taste 
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erneut gestartet. Gibt man jedoch vor der Betätigung der 
<SYSTEM RESET >-Taste »POKE 9,0«ein, kann man die- 
sen Effekt umgehen. 

Bevor Sie nun ein eingetipptes Basic- oder Turbo-Basic 
XL-Programm mit RUN starten, sollten Sie es sicherheits- 
halber noch einmal speichern. Weiterhin sollte das 
Prüfsummen-Programm mit <SYSTEM RESET > desakti- 
viert werden, da auch manche Basic-Programme die Page 
6 für Maschinen-Unterprogramme verwenden. Es könnte 
sonst zu Überschneidungen und zum Systemabsturz kom- 
men. 

Der Prüfcode besteht jeweils aus zwei Zeichen. Er setzt 
sich aus den Buchstaben von A bis Z zusammen. Geben 
Sie nun probeweise eine Programmzeile ein und schließen 
Sie mit der <RETURN>-Taste ab. Der zugehörige Prüf- 
code erscheint dann in der obersten Zeile. Sollte der Code 
nicht mit dem im abgedruckten Listing übereinstimmen, 
kann die Programmzeile sofort verbessert werden. Die 
jeweilige Programmzeile braucht dazu nicht erneut einge- 
geben zu werden, da sämtliche Editierfunktionen des Atari- 
Computers zur Verfügung stehen. 

Ein wichtiger Hinweis: 

Für die erste Programmzeile kann eventuell ein falscher 
Prüfcode errechnet werden. Sollte die Prüfsumme also 
nicht mit der im Listing abgedruckten übereinstimmen, 
fahren Sie mit dem Cursor nochmals auf die erste Zeile. 
Sobald Sie die <RETURN>-Taste betätigt haben, 


erscheint der richtige Code auf dem Bildschirm. Stimmt 
der ausgegebene Wert dann immer noch nicht, überprüfen 
Sie nochmals jedes einzelne Zeichen der von Ihnen einge- 
gebenen Programmzeile. 

Bei der Eingabe von Programmen sind die üblichen 
Abkürzungen für Basic-Befehle zulässig. Sie können also 
zum Beispiel G. für GOTO, SE. für SETCOLOR und so wei- 
ter verwenden. Eine Ausnahme gilt jedoch bei der Abkür- 
zung für den PRINT-Befehl, den man in der Regel mit 
einem Fragezeichen abkürzen kann. Verwenden Sie das 
Fragezeichen bitte nur dann, wenn es auch im Listing 
verwendet wird. 

Möchten Sie nachträglich ein Programm überprüfen, so 
laden Sie zuerst das Prüfsummenprogramm und starten es 
mit »?USR(1536)«. Anschließend laden Sie Ihr Programm 
und listen einen Teil auf dem Bildschirm. Dann bewegen 
Sie den Cursor an irgendeine Stelle einer Programmzeile. 
Mit Betätigung der <RETURN>-Taste wird der Prüfcode 
in der Statuszeile dargestellt. Stimmt der Prüfcode mit dem 
im beigefügten Listing überein, betätigen Sie wieder die 
<RETURN>-Taste und der Prüfcode der nächsten Zeile 
wird errechnet und angezeigt. Auf diese Art und Weise kön- 
nen Sie ein komplettes Programm oder auch nur einzelne 
Zeilen »durchchecken«. 

Sollte der Code nicht mit dem des Listings übereinstim- 
men, überprüfen Sie Ihre Programmzeile. Denn bei allen 
abgetippten Listings gilt: Die Programme müssen so abge- 


8 3 3 
A: e ZA: lu 
=“ \585| 58 = |5& = 55 = 5:l58 
Ssöol=s | RE aol<s So |<S | 8 ao |<S | SE 
AIB ee c AlB c A|B c 
0 Q CTL, 103 + ETLS 128 [+] Invers) CTL 147 + (Invers) CTLS 
1 iD ca | » eur 123 + Amer) CruA | 198 [e| Anvers) CTLT 
2 |[D| cn | a | al | ou | Amer) TB | 10 = | (invers) CTLU 
3 J CTLC 22 1 eTrv 131 Ei (Invers) CTLC 150 1 (Invers) CTLV 
“ Eu CTLD 3 | |cıw 132 EI Amer) CTLD | ı5ı E (Invers) CTLW 
5 ®] enE| E] OTLX 183 4 | Amer) CcrLe | 152 =] Anvers) CTLX 
6 4 EILF 25 a CeILY 134 (Imvers) CTLF 153 [E (Invers) CTLY 
: [N | ene 26 & CTLZ 135 Amvers) CTLG | 158 E Invers) CTLZ 
8 [4 CTLH 27 ® ESC ESC 136 rn Iinvers) CTLH 156 ESC SHIFT DEL 
9 [eg erLı 28 ®] ESCCTL-| 137 |. (Invers) CTLI 157 ESC SHIFT > 
1} [I ETLJ 29 E ESCCTL-| 138 N (Iinvers) CTL]J 158 ESC CTL TAB 
n E en« | ol |escon.| 2 E (Invers) CTLK | 159 ESC SHIFT TAB 
12 e CTLL 3ı ic] ESC CTL* 140 zZ (Invers) CTLL 224 +] (Invers) CTL 
13 ia! CTLM % ®& CTL 1a 1] (Invers) CTLM 251 5 (Invers) CTL; 
14 123 (® CelL; 142 _| (Invers) CTLN 252 | (Invers) SHIFT = 
s @J|cnmo | [l SHIFT 103 PR | aneseruc 253 IR | ESCCTL2 
16 > CTLP 125 Li ESC CTL 144 >] (Invers) CTLP 254 [4] ESC CTLDEL 
rn |LE| como | 1 Kl ESC DEL 145 rl (Invers) CTLQ | 255 Ib} ESCCTL> 
s N lenr I Di loser | 16 [EA |amemerz | Tabelte der AtariGrafikzeichen 
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tippt werden, wie sie gedruckt sind. Stimmt die Anzahl der 
Leerzeichen? Haben Sie eventuell Zeichen vertauscht? 
Oder haben Sie ein »?« anstelle eines PRINT-Befehls ein- 
gegeben? Haben Sie den Fehler gefunden? Dann weiter- 
hin viel Erfolg mit Ihren Atari-Programmen! 


Besondere Hinweise zum 
Prüfsummenprogramm 


Wenn Sie ein Turbo-BasicXL-Programm eingeben 
möchten, müssen Sie das Prüfsummenprogramm mit 
einem Hilfsprogramm starten. Weiterhin empfiehlt es sich, 
eine separate Diskette sozusagen als Eingabediskette zu 
verwenden. Formatieren Sie also eine Diskette. Verwenden 
Sie aber bitte nur DOS 2.0 oder 2.5! Speichern Sie 
anschließend die DOS-Files und Turbo-Basic XL mit dem 
Namen »AUTORUN.SYS« auf dieser Diskette. Dann schal- 
ten Sie den Computer aus und booten die soeben ange- 
legte Diskette. Geben Sie anschließend folgende Pro- 
grammzeile ein: 

1 BLOAD ”D:PRUEFER.OBJ” :POKE $BC3E,$1E:*L-:NEW 
Speichern Sie diese Programmzeile dann mit »SAVE 
*D:AUTORUN.BAS” « auf Ihrer Eingabediskette. Dieses 
kurze Programm sorgt beim Booten des Computers dafür, 
daß das Prüfsummenprogramm automatisch geladen und 
ausgeführt wird. Achtung: Das Prüfsummenprogramm 
läßt sich nicht vom DOS-Menü aus starten! Die oben 
aufgeführte Programmzeile muß unbedingt beim Boot- 
vorgang ausgeführt werden. Auf Ihrer Prüfsummer- 
Diskette sollten sich also folgende Files befinden: 

1. DOS.SYS (entweder DOS 2.0 oder 2.5) 

2. DUPRSYS (passend zum DOS.SYS-File) 

3. AUTORUN.SYS (Turbo-Basic XL) 

4. AUTORUN.BAS (das Initialisierungsprogramm) 

5. PRUEFER.OBYJ (das eigentliche Prüfsummenprogramm 
als Maschinencode-File) 

Wenn Sie Turbo-Basic unter unserem Happy-DOS ver- 
wenden, müssen die einzelnen Files anders auf die Dis- 
kette geschrieben werden. Die folgende Liste zeigt wie: 


1. Diskette formatieren mit »FO#« 

2. DOS.SYS auf die Diskette schreiben mit »IN #« 

3. Turbo-Basic mit»COPY AUTORUN.SYS« auf die initia- 
lisierte Diskette schreiben 

4. Turbo-Basic mit »REN AUTORUN.SYS TURBO.COM« 
auf der Diskette umbenennen 

5. Mit »JOB TURBO« das Happy-DOS veranlassen, das 
Turbo-Basic automatisch zu laden 

6. »AUTORUN.BAS« wie in der ersten Liste beschrieben 
auf die Diskette schreiben 

7. »PRUEFER.OBJ« auf die Diskette schreiben 

Das Turbo-Basic wird dann automatischgeladen, gestar- 
tet und der Prüfsummer installiert. 

Eine ähnlich Prozedur muß angewendet werden, wenn 
andere DOS-Versionen, wie zum Beispiel OSS CP/A 1.2, 
2.1 oder DOS XL, benutzt werden. Anstelle von Punkt 5 
müssen Sie allerdings von Basic aus die Befehlsfolge 
»OPEN #1,8,0,”D:STARTUP:EXC”:? #1; TURBO”: 
END« eingeben. Dann wird auch in diesen DOS-Versionen 
Ihre Prütsummer-Diskette automatisch gestartet. 


Basic-Programme schnell und 
zuverlässig eingegeben 


Um also unter Turbo-Basic XL den Prüfsummer verwen- 
den zu können, brauchen Sie nur Ihre Prüfsummer-Dis- 
kette ins Laufwerk einzuschieben und Ihren Computer ein- 
zuschalten. Alles weitere erledigt der Computer von selbst. 
Vergessen Sie bitte nicht, sich von der neuen Prüfsummer- 
Version auch eine Sicherheitskopie anzulegen. Sind noch 
Fragen offen, wenden Sie sich bitte an die Redaktion. 


(Werner Breuer/hf) 
Steckbrief 
Programm: Prüfsummer 
Basic 
ä Prüfsummer 
Datenträger: Kassette, Diskette 


199 REM Rn <LU> 
11@ REM * * <HA> 
128 REM «x PRUEFCODE fuer ATARI * <cu> 
13@ REM x * <HE> 
148 REM x von W.Kress * <Z2> 
158 REM x Lindenweg 17 * <XA> 
160 REM = 7598 Achern * <10> 
17@ REM « (c) by Happy-Computer * <DC> 
189 REM x * <HO> 
199 REM HS <MM> 
200 REM <AI> 
21@ DIM F$(15) ‚SED$(2) „D#(504) „C$(11) <RC> 
220 CE="(CTL „IICTL DIU7ICTL AICCTL F3)< 

<CTL_MIXCTL B> <1z2> 
238 GRAPHICS @:POKE 82,8:POKE 752,1 <KU> 
248 POSITION 12,18:POKE 291,8 <BO> 
259 7 "Bitte.warten.!":POKE 752,8 <DxX> 
260 Z=1000 <6Z> 
278 FOR I=1 TO 497 STEP 8 <oL> 
289 PSUMM=@ <MG> 
298 FOR J=® T0 7 <PK> 
3@2 READ SED$ <zv> 
31@ H=SASC(SEDF(1))-48 <EQ> 
32@ IF H>9 THEN H=H-7 <LT> 
3I@ L=ASC(SEDS(2I)-48 <GE> 
342 IF L>9 THEN L=L-7 SSR> 
35@ DEZ=H*16+1L:D$(I+J)=CHRS (DEZ) <av> 


368 PSUMM-PSUMM+DEZ <MmV> 
37@ NEXT J <ER> 
338 READ ZSUMM <an> 
398 IF PSUMM=ZSUMM THEN 410 <IN> 
400 ? "EST CTL 23DATENFEHLERA!":LIST Zz 

END <YX> 
418 GSUMM=BSUMM+PSUMM: Z=Z+1@ <NI> 
42@ NEXT I <FY> 
438® READ ESUMM <SL> 
440 IF ESUMM=GSUMM THEN 468 <70> 
458 ? "LEST CTL 2IFEHLENDE.ODER.-DOPPELTE 

«DATA-ZEILE" END <1Z> 
460 ? "{ESC CTL 23" <EX> 
478 ? "{ESC ETL <>" <RP> 
48@ POSITION 2,6:? :FOKE 752,1 <uR> 
498 ? „"{CIL VSIXCTL YIAufDISKETTE-sSch 

reiben{ESsC CTL =I{ESC CTL =)" <ay> 
S50@ ? „"<CTL YI2ICTL YIaAuFf-CASSETTExSch 

reiben{ESC CTL =){ESC CTL =>" <aQ> 
S1i@ ? „"£CTL V>SLCTL YVISENDE” <UR> 
528 OPEN #1,4,@,"K":GET #1,K:CLOSE #1 <NQ> 
538 K=K-48:IF K<1 OR K>S THEN ? "{ESC CT 

L 23"5:6070 52@ <WU> 
548 POSITION 3,4+3#K:? "—— >"; <FU> 
55@ POSITION 2,28 {EST SHIFT DELY"; <EW> 
56@ ON K 60T0 578,570,682 <DI> 


570 POKE 752,8:? "{ESC TABSDATEINAMER:.n 
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SMESTER 


Di:KESC CTL +IXESC CTL +)XESC CTL +XESC 
ETL 22%; SKM> 
58® POKE 764,44: INPUT F$:D: <z1> 
598 Fs="C:":D=Q <MT> 
60® ? „"CASSETTEXFERTIGAMACHEN, RETURN"; <AH> 
618 TRAP 668 <03> 
62® OPEN #1,8,128,F$ <yn> 
63® IF D THEN ? #1;D$(1,500; <UB> 
648 IF NOT D THEN ? #150$;D4(7,494) <XK> 
658 CLOSE *1:60T0 478 <EW> 

66@ ? "ESC CTL 2>{ESC CTL -IXESC SHIFT 
DELI<ESC TAB} T/O.-„FEHLER-";PEEK(199);  <CR> 
678 TRAP 40890:CLOSE #1:60T0 480 <HQ> 
<yW> 
4m <ZP> 
1000 DATA.FF,FF,00,38,E7,39,A2,FF,1271  <EA> 
1818 DATA.BD,EB,38,90,08,26,CA,E0,1069  <NF> 
1028 DATA-FF,D@,FS,A2,60,BD,84,38,1349  <vW> 
185@ DATA.9D,89,81,CA,10,F7,A2,QF,808 X<OL> 
1042 DATA-BD,8B,E4,9D,61,21,CA,10,89%8  <LI> 
185@ DATA-F7,18,AD,65,81,69,01,80,795  <MP> 
1869 DATA-6B,86,AD,66,01,69,00,80,635 _ <CE> 
1978 DATA.6C,06,A7,2A,80,65,01,A9,737  <XW> 
1089 DATA.06,8D,66,01,AD,67,01,8D,668 <V6> 
1298 DATA.30,26,AD,68,91,80,34,06,531 <HH> 
1192 DATA-38,AD,30,02,E9,02,8D,82,657  <ZR> 
111@ DATA.86,80,11,06,AD,31,02,E9,627 <EV> 
112@ DATA.29,8D,27,06,8D,12,86,19,488 <DM> 
113® DATA.45,28,7A,38,90,11,8E,26,628 <CcP> 
1148 DATA.06,49,29,20,74,38,90,07,536  <YQ> 
1150 DATA.BE,17,26,20,01,06,18,60,338 <QZ> 
116@ DATA.A2,20,DD,1A,25,F0,08,E8,892 <CH> 
117@ DATA.ES,E8,E8,21,D0,F4,18,60,1293  <CK> 
1182 DATA.70,42,39,01,9E,06,9E,06,564  <UI> 
119@ DATA.9E,26,75,06,9E,26,9E,06,615  <EX> 
1202 DATA.20,00,00,00,4C,2E,22,54,248  <CY> 
121@ DATA.3A,22,20,5@,45,45,4B,28,469  <TN> 
122@ DATA.31,31,33,29,2B,32,35,36,399  <LL> 
1238 DATA.2A,50,45,45,4B,28,31,31,473 <S6> 
1240 DATA-34,29,9B,01,61,45,01,04,420 <SW> 


1250 DATA.54,30,72,75,65,66,63,6F,776  <YW> 
1268 DATA-64,65,08,1A,00,00,1E,88,2577°_  <ER> 
1279 DATA-0B,1C,00,00,08,63,89,088,144  <LV> 
1288 DATA-18,15,00,62,79,00,37,BE,3535  <NU> 
1298 DATA.00,2B,72,65,735,73,@0F,77,622 <KV> 
1308 DATA.62,68,A9,FF,8D,30,02,A9,986  <OK> 
1318 DATA/FF,8D,31,02,40,03,B9,02,775  <ZL> 
132@ DATAB1,99,FF,FF,88,1@0,F7,A8,1223 <DR> 
1338 DATA-FF ,A2,05,BD,33,81,99,14,842 <00> 
1348 DATA.8S,CB,E0,03,D9,02,AB,FF,1855 <0g> 
1358 DATA-CA,10,F0,60,A5,77,F@,0A,1088 <OT> 
1368 DATA-AF,FF,85,26,49,FF,85,27,1191  <LE> 
157® DATA-C6,77,A5,73,F0,2D,A5,A1,1208 <VB> 
13588 DATA.18,904,C06,73,F8,25,A6,78,896 <NB> 
1398 DATA-BD,14,01,E6,78,09,98,D@,1124 <zM> 
14998 DATA.AF ‚n2,00,86,78,86,73,A6,912 <WM> 
141@ DATA-AB,86,71,A6,A1,86,72,A2,1144  <QOR> 
1428 DATA-IE „86,26,12,06,86,27,E6,7@1 <AY> 
1438 DATA.77,00,35,20,3E,F6,88,09,929  <cM> 
1448 DATA.9B,D0,02,66,73,28,68,A2,1888 <Iı0> 
1458 DATA.00,C9,9B,F@,26,86,CC,A6,1138  <LN> 
1462 DATA.89,86,D1,85,CD,A8,08,46,919  <OZ> 
147@ DATA-D1,90,@C,18,A2,@5,B5,CD,748 <DL> 
1488 DATA-75,CA,95,CD,CA,D@,F7,06,1336  <ZZ> 
1498 DATA.CD,26,CC,88,D0,E9,E6,00,1254 <EW> 
158@ DATA-AB,01,60,R9,04,00,02,20,784  <HA> 
151® DATA.CC,96,R2,03,B5,CA,95,CD,1112 <MP> 
1522 DATA.CA,DB,F9,A9,1A,28,CC,86,18976 <IN> 
1535® DATA-AS,CD,18,69,21,8D,48,01,746 <BX> 
1548 DATAAS,DO,69,21,8D0,47,81,84,856 <UQ> 
1558 DATA.DB,CB,84,00,68,85,72,84,1015 <LY> 
1562 DATA.71,86,0B,86,CC,86,CD,AB,1287  <JS> 
1578 DATA.18,18,A2,05,56,CB,CA,10,698 <RI> 
1588 DATAFB,S8,A2,83,B5,CA,FS,6F,1211  <RY> 
1598 DATA.95,73,CA,D@,F7,9@,@B,B5,1257  <SI> 
1628 DATA.74,95,CB,E8,EB,@3,D8,F7,1382 <II> 
161® DATA.E6,D8,88,D2,DL,690,E2,@2,1326  <IV> 
162@ DATA.ES,22,00,38,20,00,20,08,255  <ER> 
1658 DATA.53423 <na> 


Listing zum Atari-Prüfsummer (Schluß) 


Ampel-Version 1.1 


Sie möchten unser neuestes Listing abtippen? 
Mit AMPEL wird das Eingeben von reinen Atari- 
Maschinenprogrammen zum Kinderspiel. 


an, daß jedes Byte korrekt eingegeben wird. Schon 

ein einziger falscher Wert führt meist dazu, daß das 
eingegebene Programm nicht läuft. Dies hat dann oft eine 
stundenlange Fehlersuche zur Folge. Deshalb haben wir 
für Sie »AMPEL« (Atari-Maschinen-Programm-Eingabe- 
Listing) entwickeln lassen. Und damit das Eintippen für Sie 
möglichst einfach und reibungslos verläuft, wählen wir eine 
spezielle Darstellungsform für Maschinenprogramme. 
Beachten Sie bitte, daß Sie zukünftig unbedingt AMPEL- 
Version 1.1 verwenden müssen, um Atari-Maschinenpro- 
gramme einzugeben. Von Basic aus lassen sich solche 
Listings nicht eingeben. Verwahren Sie also das Programm 
zu AMPEL sorgfältig und legen Sie eine zusätzliche Kopie 
an einen sicheren Platz. 

Geben Sie zunächst das nachfolgende Listing ein. Ver- 
wenden Sie dazu den Atari-Prüfsummer. Bevor Sie AMPEL 
mit RUN starten, sollten Sie das eingegebene Basic- 
Programm auf Diskette oder Kassette speichern. Hat sich 
nämlich ein Fehler im Maschinensprache-Teil eingeschli- 
chen, kann Ihr Computer abstürzen. In dem Fall müßte 
AMPEL erneut eingegeben werden. 


S peziell bei Maschinenprogrammen kommt es darauf 


Nachdem Sie das Programm mit RUN gestartet haben, 
werden zuerst die DATA-Werke eingePOKEt. Dieser Vor- 
gang nimmt einige Sekunden in Anspruch. Danach müs- 
sen Sie die Länge des einzugebenden Maschinenpro- 
gramms eingeben. Diesen Wert entnehmen Sie bitte am 
Ende des abgedruckten Maschinenprogramms. Anschlie- 
Bend geben Sie den Programmnamen an, unter dem Ihr 
Programm gespeichert wird. Aufdem Bildschirm erscheint 
jetzt »0000:«, die Aufforderung, mit der Eingabe der ersten 
Zeile des AMPEL-Listings zu beginnen. 

Betrachten wir eine AMPEL-Listing-Zeile aus der Nähe: 
0000:00 02 00 07 06 07 20 BD <F3> 

Die ersten vier Zahlen (hier 0000) stellen sozusagen die 
Zeilennummer dar. Diese Zahlen sowie den darauffolgen- 
den Doppelpunkt brauchen Sie nicht einzugeben. Danach 
folgen 'acht zweistellige Hexadezimalzahlen, die Sie dem 
Listing entnehmen. Die Eingabe erfolgt ohne Betätigung 
der <RETURN>-Taste. Der Cursor springt selbständig 
von einer Position zur nächsten. Leerzeichen sowie die bei- 
den Zeichen »<«und»> «fügt AMPEL automatisch ein. Ist 
die Prüfsumme korrekt - sie muß auch von Ihnen eingege- 
ben werden - springt der Cursor in die nächste Zeile. Falls 
nicht, ertönt ein akustisches Signal und alle acht Werte, 
inklusive der Prüfsumme, müssen nochmals eingegeben 
werden. Dadurch wir gewährleistet, daß wirklich alle einge- 
gebenen Hexadezimalzahlen im Listing stimmen und sich 
keine unbemerkten Fehler einschleichen können. 


En 
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Außer den Hex-Tasten (<0> bis <9> und <A> bis 
<F>), wirdnurnoch <DELETE BACKSPACE > zum Kor- 
rigieren des letzten Zeichens und <CONTROL S> abge- 
fragt. 


Zwischenspeichern 


Da Sie ein umfangreiches Maschinenprogramm sicher 
nicht an einem Tag eintippen möchten, können Sie zu 
jedem Zeitpunkt mit <CONTROL S> zwischenspeichern. 
Dazu betätigen Sie einfach <CONTROLS> undder Code 
wird unter dem zuvor eingegebenen Programmnamen 
gespeichert. Weiterhin wird automatisch die jeweils zuletzt 
gespeicherte Version in »BACKUPOBJ« umbenannt. Zuvor 
wird natürlich eine ältere »BACKUPOBJ«-Datei gelöscht. 
Danach können Sie den Computer ausschalten oder 
AMPEL mit <RESET> verlassen. 

Wenn Sie das nächstemal AMPEL starten, muß wieder 
die Programmlänge und der entsprechende Name, mit 
dem Sie Ihre letzte Versiongespeichert haben, eingegeben 
werden. Existiert bereits eine Datei mit dem entsprechen- 
den Namen, wird die Datei automatisch geladen. Weiterhin 
wird noch die Zeilennummer auf dem Bildschirm ange- 
zeigt, ab der Sie mit der Eingabe der Hex-Werte fortfahren 
müssen. 

Speichern Sie lieber öfter mit <CONTROL+S>, um 
auch gegen eventuelle Stromausfälle gewappnet zu sein. 
Weiterhin empfiehlt es sich aus Sicherheitsgründen, zwei 
Disketten für Daten vorzusehen. Wenn Sie das komplette 
Programm eingegeben haben, speichert der Computer 
nach Eingabe des letzten Bytes das Programm auf Diskette 
und meldet sich danach mit der READY-Meldung. 

Wenn Sie Ihr Maschinenprogramm anschließend laden 
möchten, erfolgt dies vom DOS-Menü aus. Wählen Sie hier 
die L-Funktion und geben Sie anschließend den entspre- 
chenden Programmnamen ein. 


Besondere Hinweise für 
Kassettenrecorder-Besitzer 


Damit AMPEL auch einwandfrei mit einem Kassettenre- 
corder funktioniert, müssen folgende Programmzeilen 
geändert werden: 

290 F$="C:” :AD=0 

300 2 ” Altes File laden J/N ” ; 

310 INPUT FR$ 

320 IF FR$<>"J" THEN 510 

420 TRAP 510:0PEN #1,4,128,F$ 

590 TRAP 660:CLOSE#1:0PEN #1,8,128,F$ 

Die Zeilen 330 bis 360 entfallen, ebenso die Zeilen 450, 
600 und 610. 

Speichern Sie anschließend die geänderte AMPEL- 
Version mit CSAVE. Somit haben Sie das benötigte Einga- 
beprogramm bereits vorliegen. 


Sicherheit über alles 


Mit <CONTROL S> kann zu jedem Zeitpunkt gespei- 
chert werden. Daraufhin erklingt ein doppelter Signalton. 
Betätigen Sie dann noch die <RECORD>- und 
<PLAY>-Tasten des Recorders und anschließend die 
<RETURN>-Taste. Der Speichervorgang beginnt. Wenn 
Sie dann mit einem anderen Programm arbeiten möchten, 
gelangen Sie mit <RESET> zurück ins Basic. 
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Wenn Sie zu einem späteren Zeitpunkt mit der Arbeit fort- 
fahren möchten, laden Sie wieder zuerst AMPEL, starten 
es mit RUN, geben die Programmlänge ein und beantwor- 
ten die Frage »Altes File laden J/N« mit J. Daraufhin meldet 
sich der Computer wieder mit einem Brummton. Spulen 
Sie das Band an den Anfang zurück, betätigen Sie dann 
noch die <PLAY >-Taste und <RETURN>. Jetzt wird der 
zuletzt eingegebene Programmteil geladen. Anschließend 
meldet sich der Atari-Computer wieder mit der Zeilennum- 
mer, ab der Sie mit der Eingabe fortfahren müssen. 


RETTET 
= Rtarı amprr 


So sieht der Bildschirm bei der Eingabe von Maschinenpro- 
grammen aus. Zwischenspeichern kann man jederzeit mit 
der Tastenkombination <CONTROL+S>. 


Um später das eingegebene Programm zu starten, muß 
stets zuerst das »Kassetten-Hilfsprogramm« geladen wer- 
den. Nach dem Ladevorgang meldet sich der Computer mit 
dem Brummton. Anschließend legen Sie bitte Ihre Kassette 
mit Ihrem Maschinenprogramm in den Recorder ein, 
drücken die <PLAY>-Taste des Recorders und während 
Sie die <START>- und <OPTION >-Tasten des Compu- 
ters drücken, schalten Sie die Stromversorgung ein. Nach 
dem Brummton nur noch <RETURN> drücken und Ihr 
Programm wird geladen und anschließend automatisch 
gestartet. 


Programme schnell geladen 


Speziell bei Kassettenrecordern kann es Probleme beim 
Laden von Maschinenprogrammen geben. Deshalb sollten 
Sie stets mehrere Sicherheitskopien von Ihren Program- 
men machen. Hinzu kommt, daß das Laden von Kassette 
sehr viel Zeit beanspruchen kann, da die Übertragungsge- 
schwindigkeit sehr langsam ist. Besitzer einer Disketten- 
station haben es hier viel besser. Sollten SiemitAMPEL auf 
Schwierigkeiten stoßen, wenden Siesich an die Redaktion. 

(Frank Ostrowski/Werner Breuer/hf) 


Steckbrief 
Programm: AMPEL 
Sprache: Basic 
Eingabehilfe: Prüfsummer 
Datenträger: Kassette, Diskette 


108 7,1 RR 
112 ? abtanarsrAtariAäMPELAuuH" 
115 7? „"a8a lc) Happy-Computer x" 
117 ? „"aksauuu Versional.lauut" 
120 7 5" 2 
130 ? 

149 ? „"CTRLASı=4Sichern" 

158 ? 

162 ? "Einen«Moment“Geduld.bitte."; 
199 POKE 16,54:POKE 53774,64 
23@ DIM F$(15) ,‚FB$(15) ‚FR$(27) 


242 DIM ML$(261) ‚CIO$ (83) 

252 GOSUB 1988 

262 ? CHRS(156) 

278 ? “Programmlaengex"3: INPUT L 
288 DIM As(L+@) 


298 7 "Programmnames";: 


INPUT Fs 


sa@ IF F$="" THEN 298 


319 F=i 


FOR I=1 TO LEN(FSI: 


=F+HF$(1,D= 


“z")rNEXT I 


32@ IF F=® THEN FR: 


$ 


De "sFRSCDISFSSFS=FR 


339 ? "Filename«";F$ 
349 FB$="D:BACKUP.OBI" 


359 FR$=FS:FR$(LEN(FRSI+L 


368 FR$(LEN(FRSI+1)=FB$ (3) 
428 AD=B:TRAP S1B:DPEN #1,4,8,Fs 


438 E=USR (ADR (C10S) ‚,1,7,ADR(A$) ,L) 
448 IF E=1 THEN ? "Schonsfertig 
45® IF E<>13S& THEN ? "Disk-Read-Errors 
ErEND 

468 AD=PEEK (856) +256#PEEK (857) 


END 


470 AD=B*INT (AD/8) :TRAP 65535 
518 CD=USR(ADR(ML$) „ADR(AS) ‚AD) 
522 ON CD GOSUB 599,690,718 
530 AD=AD+3* (CD=2) 
548 IF AD<=L THEN 518 
559 AD=L:GOSUB 598 
562 POKE 16,192: POKE 53774,192:END 
598 TRAP &@B:CLOSE #1:XI0 35,#1,2,2,FB$ 
608 TRAP &1B:CLOSE #1:XI0 32,#1,2,2,FR% 
618 TRAP 66B:CLOSE #1:0PEN #1,8,2,F% 
629 E=USR(ADR(CIOS) „1,11,ADR{AS) „AD 
638 CLOSE #1 
&49 IF E<>1 THEN ? "Disk-Error=";E 
658 TRAP 65535: RETURN 
66@ CLOSE #1 
678 ? "Disk-Error =" ;PEEK (195) RETURN 
69@ ? CHR$(253):? "Pruefsummenfehler" 
7@® RETURN 
718 ? "Fehler!!!!";:LIST SIB:END 
1220 0-2 
1810 FOR I-=1534 TO 1592 
1228 READ ArQ=Q+A:POKE 1,A 
19830 NEXT I 
1842 IF IC>4196 THEN ? "Data.Error":LIST 
1380, 139@:END 
1052 0=2 
1868 FOR I=1 TO 261 
187@ READ A 
1882 IF A>2S5 THEN GOSUB 1199 
1292 MLECII=CHR$ (A) 1 Q=Q+A 
1192 NEXT I 
111@ READ ArIF Q<>A THEN 12088 
g=2 


1138 FOR I=1 TO 83 

1148 READ A:Q=Q+A:CIDSCI)=CHRSE(A) 
115® NEXT I 

1168 IF 0<>12894 THEN ? "Data.Errora"z:Ll 
IST 1958,2289:END 

1172 RETURN 

119@ IF Q=A THEN READ A:Q=B: RETURN 
1288 ? "Data.Error" 

1218 IF A=7951 THEN LIST 1438,1538 
1228 IF A=6585 THEN LIST 1548,1648 
1232 IF A=8135 THEN LIST 16598,1758 
1248 IF A=7184 THEN LIST 1768,1868 
125@ IF A=2222 THEN LIST 1878,1918 


1388 DATA.173,37,228,72,173,36 
131@ DATA.228,72,96,72,74,74 
132 DATAL74,74,32,20,6,194 

1358 DATA.41,15,9,48,221,58 

1348 DATA=144,2,105,6,168,173 
1358 DATA.71,3,72,173,70,3 

1368 DATA.72,152,96,52,31,3@ 

1370 DATA.26,24,29,27,51,53 

1388 DATAA48,63,21,18,58,42 

1398 DATA.S56,199,52 

1432 DATAA169,0,133,213, 184,291 
1440 DATA2,249,16,170,248,5 
1459 DATA.184,124,202,208,251,169 
146@ DATA-3,44,169,1,133,212 

147® DATA-76,104,133,215,184,133 
148@ DATA.214,104,133,217,1@4,133 
1498 DATA.216,24,191,214,133,214 
1582 DATA-165,217,101,215,1353,215 
1518 DATA.169,155,32,28,6,165 
152@ DATA2217,32,9,6,165,21& 

1538 DATA.7731 

1548 DATA.32,9,6,169,58,32 
DATA228,6,169,8,133,218 

1560 DATA.173,252,2,41,191,162 
1578 DATA.17,221,39,6,240,5 

1580 DATA.282,16,248,48,239,154 
1598 DATA.219,141,252,2,32,8 
16@2 DATA=6,41,127,32,28,6 

1618 DATA.165,219,281,16,248,168 
1622 DATA.144,40,165,218, 242,285 
1638 DATA.74,176,5,169,126,32 
1642 DATA.4585 

165 DATA.28,6,168,4,70,228 

1662 DATA-182,221,102,222,102,223 
1678 DATA.1@2,224,102,225,182,226 
1688 DATA.122,227,102,228, 156,208 
1698 DATAs235,198,218,184,82,178 
1702 DATA-12,18,10,10,162,4 

1710 DATA.12,39,228,38,227,38 
1720 DATA.226,398,225,58,224,38 
1738 DATA.223,38,222,38,221,38 
1740 DATA-220,136,208,234,230,218 
1758 DATA.8135 

1760 DATA165,218,201,19,242,19 
1770 DATA“21,16,288,4,169,68 
1788 DATA.288,5,74,176,296,169 
1798 DATA.32,32,28,6,184,88 

1808 DATA-198,165,217,18,1@1,216 
1818 DATA.1@,191,228,10,1@1,221 
182 DATA.18,1@1,222,18,1@1,223 
1838 DATA.12,101,224,18,101,225 
1840 DATA.1Q,181,226,10,101,227 
18590 DATA.177,228,288,18,169,62 
1860 DATA7ı84 

1872 DATA.32,28,6,160,7,185 

1882 DATA.229,8,145,214,136,16 
1898 DATA.248,169,0,44,169,2 

1992 DATA.133,212,96 

1919 DATA„2222 

1950 DATA.194,201,4,288,66,104 
1969 DATA.184,178,184,104,153,212 
1970 DATA,194,135,214,104,135,213 
1982 DATAA124,133,216,184,133,215 
199@ DATA-160,134,138,281,8,176 
2008 DATA.33,19,12,18,18,17@ 
2018 DATA.165,212,157,66,3,165 
2828 DATA213,157,68,3,165,214 
2030 DATA.157,69,3,169,215,157 
2048 DATAA72,3,165,216,157,73 
2250 DATA3,32,86,228,132,212 
2@6® DATA.169,2,133,213,76,168 
2970 DATA.19,178,242,244,194,184 
2088 DATA.202,228,251 ,240,237 


Eingabehilfe »AMPEL« für Programme in Maschinenspra- 
che. Bitte mit dem Prüfsummer von Seite 60 eingeben. 


<rX> 
<HI> 
<ZA> 
<I0> 
<OoH> 
<Du> 
<c6> 
<IL> 
<KV> 
<PY> 
<HX> 
<YR> 
<RI> 
<BU> 
<rK> 
<60> 
<UF> 
<ıu> 
<SR> 
<L6> 
<HS> 
<oX> 
<I> 
<KHS> 
<DP> 
<69> 
<UR> 
<6B> 
<IB> 
<CH> 
<RS> 
<PH> 
4422 
<VE> 
<Dr> 
<aR> 
<BA> 
<10> 
<uu> 
<YP> 
<RU> 
<06> 
<Lz> 
<H0> 
<HK> 
<E6> 
<IZ> 
<ZP> 
<u0> 
<YP> 
<ca> 
<CR> 
<I> 
<NS> 
<LL> 
<KI> 
<HU> 
<CA> 
<HH> 
<KE> 
<AX> 
<DH> 
<HO> 
<AX> 
<LS> 
<VR> 
<T0> 
<aDd> 
<SE> 
<HN> 
<au> 
<SB> 
<Ja> 
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Auf die Kassette, 
fertig, los! 


Benutzer eines Kassettenrecorders dürfen end- 
lich aufatmen. Auch sie können nun die Vorteile 
des »Turbo-Basic« voll nutzen. 

sich der immensen Vorteile und erweiterten Fähig- 


BR: gegenüber dem »Atari-Basic« - voraus- 
gesetzt, man verfügt über ein Diskettenlaufwerk. Werindes 
nur einen Kassettenrecorder sein eigen nennt, stand bis- 
lang im Regen. Die Ladeprozedur des Turbo-Basic war 
nämlich ausschließlich auf Diskettenbetrieb ausgelegt. 
Diesem Mißstand macht das Programm »Turbo-Load« jetzt 
ein Ende. Sollten Sie der Vorzüge des Turbo-Basic noch 
nicht gewahr sein, hier ein paar Appetitanreger: 

Der Turbo-Basic-Interpreter 
- ist voll kompatibel zum Atari-Basic 
- macht auch Atari-Basic-Programme wesentlich schneller 
- erweitert den Befehlssatz um so wichtige Elemente wie 

neue Schleifenformen (DO-UNTIL, WHILE-WEND etc.) 

und Grafik-Kommandos (beispielsweise zum Zeichnen 
von Kreisen und Rechtecken sowie zum Füllen beliebiger 

Flächen). 

Eine vollständige Aufstellung des Befehlsvorrats und der 
Handhabung des Interpreters entnehmen Sie bitte dem 
Beitrag »Basic, schnell wie der Wind« ab Seite 68 dieser 
Ausgabe. 

Geben Sie zunächst das Turbo-Load-Listing mit AMPEL 
ein und speichern Sie es. Auf der gleichen Kassette, genau 


Ile (Atari-)Welt spricht vom Turbo-Basic und erfreut 


hinter Turbo-Load, speichern Sie dann das ebenfalls einge- 
gebene Turbo-Basic. Zum Schutz vor unwiederbringlichen 
Datenverlusten fertigen Sie mindestens eine Arbeitskopie 
von dieser Turbo-Basic-Kassette. Zum Einsatz des Turbo- 
Basic spulen Sie nun die Kassette auf den Anfang von 
Turbo-Load und schalten den Computer ein, während Sie 
gleichzeitig die Tasten <OPTION> und <START> 
gedrückt halten. Hören Sie den Summton, lassen Sie die 
Tasten wieder los und starten den Recorder. Nach einer 
kurzen Ladezeit fordert Turbo-Load Sie auf, die Kassette an 
den Beginn der Turbo-Basic-Datei zu spulen, die Taste 
<PLAY> des Recorders und abschließend <RETURN> 
auf der Computer-Tastatur zu drücken. Eine knappe Vier- 
telstunde später meldet sich Turbo-Basic zur Stelle. 

Der Interpreter ist fest im Computer installiert, auch die 
<RESET >-Taste bringt ihn nicht aus der Ruhe. Geben Sie 
den Befehl »? FRE(0)« ein. Wenn der Computer die Zahl 
»34018« ausgibt, ist alles in Ordnung. (a) 


Turbo-Load 
Maschinensprache 


Eingabehilfe: AMPEL 


Programmname :D: TURBOLOA- BIN 2128: 1F 87 9D a8 
Laenge 1904 Bytes Q132:9D 49 83 20 
Q1IB:4C 94 97 4C 
2202:00 28 @@ 07 21 87 A9 3C <24> @142:08 A2 20 a9 
@008:8D ©2 DS AF 21 85 BC A9 <14>. 9148:49 QA 8D 45 
2210:27 85 @D A9 22 35 On A9 <Q1> @158:48 25 #9 20 
0218:07 85 @B 18 6D @& OD 00 <DA> Q158:56 E4 4C 22 
&@ A2 00 BD 0@ E@ 7D <ar> Q162:0C ID 42 85 
@C BD @@ E1 9D 00 OD <49> G168:AE 24 E64 AC 
Q0 E3 7D 08 Er ES D@ <90> 2178:01 C8 8E F8 
A2 @@ BD 36 29 9D 0@ <r@> @178:A7 ga en oe 
Es E@ 88 D@ F5 A7 0C <87> D3 09 
C5 @2 A7 1B 8D C6 82 <Fa> 8D FB 
F@ 92 A9 OC GD F& 02 <EB> R9 28 
@0 A9 OB 8D 42 83 A9 <27> aD 98 
SD 44 05 A? 89 8D 45 <Ea> sa 8D 
A9 A7 OD 48 05 A9 DO <S1> ac 47 
49 03 29 56 E4 A2 1@ <co> D4 a2 
@5 9D 42 85 A9 85 9D <Aa> Bı Ds 
23 A? OA ID 45 05 a7 <ER> ce 21 
9D AA 05 A9 8D 9D AB <38> c8 
29 56 E4 AZ 10 A9 07 <an> 62 49 
42 85 A? 1D 9D 44 95 <C9> 85 D6 
@7 9D 45 @5 A9 02 9D <7a> 85 Ds 
05 A9 08 9D 49 85 20 <D6> 29 89 
E4 18 BA CD BB FO 05 <7A> 07.89 
SE 88 4C 68 08 A? FF <D7> 29 20 
1D 87 D® 8S CD 1E 87 <EE> a9 98 
CA AD 1E 07 C9 co 98 <57> a7 Ar 
38 AD 1E @7 E9 50 8D <@4> AS D7 
@7 AZ 10 A9 1F 9D 44 <IF> 2a 24 
A9 07 ID 45 83 20 56 <FB> 28 pa 
18 @5 4C SE BB AD 20 <81> aa cs 
C7 CO 98 09 38 AD 2@ <S6> ac ıD 
E97 5® 8D 20 07 AD IF <18> sc SC 
38 ED 1D 87 SD ıF 87 <B2> 66 7E 
20 @7 ED ıE 97 @D 2@ <DE> 66 7E 
EE 1F 07 DO 95 EE 2@ <EB> se so 
AZ 1B AD 1D 07 9D 44 <55> SE 5® 
AD 1E 07 9D 45 @5 AD <B4> 36 SC 


Datenträger: 
@3 AD 20 07 <95> OF 03 83 F6 E4 00 =0 <an> 
36 Es 30 85 <oa> Fa Ca CO 68 20 ua D1 <as> 
SE 28 20 SD <an> 96 D& 86 85 01 98 Ei <7D> 
65 8D 44 03 <66> 96 86 86 35 Eı 08 C7 <aa> 
83 A9 20 3D <an> 33 356 56 66 CE @0 DE <69> 
SD 49 03 20 <FB> 9C F& 66 66 67 08 7E <35> 
87 A2 10 a9 <sı> 33 IE 30 su 78 aa 67 <53> 
28 5& Es &0 <an> 66 66 56 66 IC 08 FF <B3> 
25 Es EB D8 <Da> 31 31 51 51 7B @a@ FB <3D> 
24 SC FF 24 <aB> B1 Fi 81 81 FB 00 FB <88> 
Ds 78 a9 FE <10> SC FB BB 98 CC 7D 9B <33> 
AB &D FA FF <FA> 20 20 20 2@ 20 20 2@ <an> 
FF a9 DO aD <91> 20 20 20 20 20 DO DI <69> 
8D FF FF AP <BB> @200:82 25 B4 05 86 07 7B 20 <aa> 
a9 20 20 AD <74> 20 20 29 2@ 2@ <n8> 
GE Ds 58 28 <3a> 29 DA OB <66> 
60 85 DS AB <62> BF 18 96 9B 2@ <2D> 
@4 A9 FF ED <79> 20 20 20 20 29 <70> 
99 80 21 C8 <12> 55 52 42 4F 2® <BC> 
D3 89 90 21 <ı0> 44 20 31 2E 30 <9E> 
FO E6 DS CA <09> 20 20 20 2@ 2 <ch> 
FE ED @1 DS <e1> 2@ 31 39 38 37 <FB> 
a9 70 85 D7 <22> 65 6E 72 69 6D <F8> 
A9 78 85 09 <ıa> 73 63 68 98 9B <76> 
28 85 D6 A9 <B1> 20 2@ 20 20 20 <aB> 
F9 85 D8 a9 <a2> 55 52 42 aF 20 <7E> 
12 89 A7 00 <D6> 49 45 20 58 ac <30> 
85 D7 A? Fi <As> 33 98 20 20 20 <7ı> 
85 D9 20 ı2 <BE> 28 63 29 20 sı <ı5> 
18 69 50 85 <za> 20 46 72 61 6E <B> 
DA BI D6 91 <cc> 73 74 72 6F 77 <57> 
86 AS D7 CS <ar> 98 98 9B 46 65 <on> 
Da Er Es D7 <zr> 72 28 62 65 69 <9D> 
27 60 00 18 <Fa> 61 64 69 6E 20 <F5> 
66 42 00 80 <7F> 20 4B 61 73 73 <Ba> 
76 56 80 08 <c7> 65 21 45 00 Ba <SF> 
66 66 ©0 SE <22> 
3® 78 @8 7C <EB> 
32 78 20 00 <Aan> AR 
39 65 a0 @1 <c7> Listing. »Turbo-Load« 


Wenn die Kassette 
mit der Diskette 


Mit dem hier vorgestellten Programm lassen sich 
alle für Diskette gedachten Maschinenpro- 
gramme von Kassette laden und starten. 
E Programmen auf Diskette. Fast ausnahmslos alle 
Programme, die wir im Heft abdrucken, bekommen 
wir auf Diskette zugesandt. Das allein wäre nicht weiter 
schlimm. Nur, meistens sind die Programme so ausgelegt, 
daß sie nur mit der Diskettenstation zusammenarbeiten. 
Ganz schlimm wird es, wenn wir Maschinenprogramme 
erhalten. Es ist fast unmöglich, die Programme so umzu- 
schreiben, daß sie sowohl mit Kassette als auch mit Dis- 
kette funktionieren. Außerdem müßten wir dann immer zwei 
Versionen abdrucken, einmal für Kassetten- und einmal für 
Diskettenbetrieb. Da wir den Platz im Heft lieber mit ande- 
ren Programmen oder Beiträgen füllen wollen, haben wir 
uns eine elegante Lösung einfallen lassen, die Nachteile 
weder für den Kassetten- noch für den Diskettenbetrieb mit 
sich bringt. 
Tippen Sie das Programm mit AMPEL ab und speichern 
Sie es auf Ihrer Kassette. Unser »COS«, »Cassetten Opera- 


tions System«, wird geladen, indem Sie den Computer aus- 
schalten, die <START>-Taste drücken, je nachdem, ob 


ür uns ist das schon ein Problem, die Sache mit den 


Drei Funktionen hat COS. Die wichtigste ist die Funktion 
<L> ‚mit der ein File von der Kassette geladen und gestar- 
tet wird. Drücken Sie diese Taste, fordert der Computer Sie 
mit einem Hupton auf, die Kassette auf den Anfang des zu 
ladenden Files zu spulen, ihn wieder auf »PLAY« zu schal- 
ten und eine Taste zu betätigen. »Turbo-Basic« läßt sich mit 
COSileider nichtladen, da Turbo-Basic eine spezielle Lade- 
routine für den Diskettenbetrieb eingebaut hat, die mit Kas- 
sette nicht funktioniert. 

Mit der zweiten Funktion <C> wie »Cartridge« wird zu 
einem eingesteckten Modul gesprungen beziehungsweise 
das Basic gestartet. Verwenden Sie diese Funktion nicht, 
wenn Sie Basic nicht eingeschaltet haben. Der Computer 
hängt sich sonst auf, und Sie müssen ihn mit <RESET> 
wieder ins Diesseits der Bits und Bytes zurückrufen. Diese 
Funktion wird auch zusammen mit dem Prüfsummer ver- 
wendet. Nachdem Sie den Prüfsummer von Kassette gela- 
den haben, müssen Sie irgendwie ins Basic kommen, um 
den Prüfsummer benutzen zu können. Dies geschieht mit 
der Funktion <C>. 

Als letztes steht die Funktion <S> zur Verfügung, mit 
der ein geladenes Programm nochmals gestartet wird. 
Nützlich ist dies bei verschiedenen kleinen Demonstra- 
tionsprogrammen, die nach getaner Arbeit wieder ins COS 
zurückkehren. (nf) 


Sie Basic benötigen oder nicht, die <OPTION>-Taste Steckbrief 
betätigen und den Computer dann einschalten. Er meldet 
sich mit einem Hupton. Spulen Sie jetzt die Kassette auf Programm: cos 
den Anfang von COS, schalten den Recorder auf »PLAY« = = 
und drücken eine Taste am Computer. COS wird nun gela. | Sprache: Maschinensprache 
den. Das Programm beansprucht acht Blöcke auf der Kas- Eingabehilfe: AMPEL 
sette und ist somit schnell im Speicher. COS meldet sich SZ 
miteinem'Menu) Datenträger: Kassette 
Programmname :C0S.BIN @100:A9 FF CD 352 87 DB OB CD <AD> 0220:20 56 E4 A9 07 9D 42-85 <C6> 
Q108:33 97 D® @& 8D SC 97 ac <ur> 0228:A9 3A 9D 48 23 A9 07 9D <ac> 
B118:D& 87 AD SC 87 DO 85 4C <62> 8230:45 85 A? D1 9D 48 83 A9 <71> 
B118:E8 3 56 E& A9 <87> 
Ei 56 E4 80 <AB> 
79 2D 43 <aa> 
8138:3B 65 72 2 <84> 
0138:44 25 A9 87 9D 45 85 a9 <ar> 2® a1 56 <sa> 
65 72 73 <co> 
2E 3@ 45 <11> 
67 68 74 <0S> 
31 39 38 <65> 
48 65 6E <66> 
69 73 63 <A7> 
SD 20 46 <12> 
sF 6E 20 <85> 
74 74 65 <5A> 
6E 9B SB <SF> 
B190:AD ES 82 8D 39 87 20 B& <17> 6C 61 64 <29> 
8198:08 20 BB 86 AF 47 CD EZ <1B> 46 69 &C <B3> 
De 72 74 65 <1D> 
a5 20 87 65 <67> 
58 72 28 43 <7E> 
ec &4 67 65 <63> 
2@ 68 &C 65 <85> 
42 &D 28 4C <C9> 
o7 7& &F 6E <C5> 
oe 65 74 74 <1E> 
Es 65 68 60 <&D> 
B& 6B 65 69 <F6> 
3 BS1Q:6E 20 44 AF SS 20 32 2E <6E> 
sD @318:3®8 2® 46 69 60 65 98 43 <EB> 
? 20 0320:4B OB DB DO BB Do ma am <92> 
“ Listing. »COS«, mit AMPEL 
@@F8:D® 03 #C 8 08 AC Ci 08 <BE> eingeben 


Basic, schnell wie 
der Wind —- mit dem Turbo- 
Basic-XL-Interpreter 


Ist Ihnen Atari-Basic zu langsam? Oder wün- 
schen Sie sich zusätzliche Befehle? Dann ist 
unser Turbo-Basic-Interpreter genau das richtige 
Programm für Sie. 


ugegeben, unser Interpreter ist ein wenig umfang- 

reich. Immerhin müssen insgesamt 18108 Byte erst 

einmal eingetippt sein. Eine Aufgabe, die sicher 
einige Stunden in Anspruch nimmt. Haben Sie aber dann 
den Interpreter auf Diskette vorliegen, sparen Sie sich 
zukünftig viel Zeit für die Entwicklung neuer Programme. 
Erstens stehen Ihnen sämtliche Befehle des normalen 
‚Atari-Basic zur Verfügung, und zweitens gewinnen Sie durch 
die neuen Befehle viel Zeit und vor allem Speicherplatz. 

Aber Turbo-Basic XL spart nicht nur Zeit bei der Program- 
mierung, sondern auch bei der Ausführung von Program- 
men. Es macht seinem Namen als schnellstes derzeit 
erhältliches Basic für Atari-Computer nämlich alle Ehre. 
Wir haben unseren Interpreter dem normalen Basic und 
verschiedenen Basic-Compilern gegenübergestellt. Turbo- 
Basic XL siegte in jeder Hinsicht. 

Damit Sie mit Turbo-Basic XL und dem dazugehörigen 
Compiler arbeiten können, benötigen Sie unbedingt einen 
‚Atari 800XL oder 130XE. Besitzer der älteren Computer, 
also Atari 400 und 800, können den Interpreter leider nicht 
benutzen. In der abgedruckten Version setzt Turbo-Basic 
XL mindestens 64 KByte RAM voraus. 

Beachten Sie bitte: Turbo-Basic XL muß unbedingt mit 
AMPEL (Atari-Maschinen-Programm-Eingabe-Listing) ein- 
gegeben werden. Von Basic aus läßt sich Turbo-Basic XL 
nämlich nicht eingeben. Wenn Sie alle dazugehörigen 
Erklärungen befolgen, kann nichts schiefgehen. 


Besondere Hinweise 
zu Turbo-Basic XL 


Turbo-Basic XL ist als »AUTORUN.SYS«-File ausgelegt. 
Das heißt, wenn Sie den Interpreter komplett eingegeben 
haben, können Sie Ihrem File einfach den Namen »AUTO- 
RUN.SYS« geben. Nach dem Einschalten des Computers 
wird dann automatisch Turbo-Basic XL geladen. Anschlie- 
Bend können Sie auch schon mit dem Interpreter arbeiten. 
Einzige Voraussetzung: Die Files »DOS.SYS« und 
»DUPSYS« (entweder DOS 2.0 oder 2.5) müssen sich auf 
der gleichen Diskette befinden. Mit DOS 3.0 arbeitet Turbo- 
Basic XL übrigens nicht! 

Hier noch einige Hinweise, wie Sie einen Dateinamen auf 
Diskette ändern können. 

Nehmen wir an, Sie haben Ihrem Interpreter bei der Ein- 
gabe mit AMPEL den Namen »TURBO« gegeben. Dieses 
File soll nun den Namen »AUTORUN.SYS« erhalten. Ent- 
fernen Sie also zunächst Ihre Turbo-Basic-XL-Diskette und 
schalten Sie bitte den Computer aus. Nachdem Sie eine 
formatierte Diskette, auf der sich die Files »DOS.SYS« und 
»DUPSYS« befinden, ins Laufwerk gelegt haben, schalten 


Sie den Computer wieder ein. Anschließend geben Sie 
»DOS« ein und gelangen über die <RETURN>-Taste ins 
DOS-Menü. Nun rufen Sie auf der Turbo-Basic-XL-Diskette 
mit »E« die Funktion »Rename File« auf und drücken 
<RETURN>. Die Meldung »Give - Old Name, New 
Name« erscheint. Geben Sie beispielsweise 
»TURBO,AUTORUN.SYS«ein. Sollte Ihre Datei einen ande- 
ren Namen haben, müssen Sie diesen anstelle von 
»TURBO« einsetzen. Nach Betätigung der 
<RETURN > -Taste wird Ihr File umbenannt und hat dann 
den Namen »AUTORUN.SYS«. Überzeugen Sie sich, daß 
der soeben beschriebene Vorgang auch wirklich funktio- 
niert hat. Mit »A« für Directory und <RETURN> wird das 
neue Directory auf dem Bildschirm angezeigt. Folgende 
Programme sollten sich jetzt auf Ihrer Diskette befinden: 
DOS.SYS, DUPSYS und AUTORUN.SYS. 

Noch eins, bevor Sie mit Turbo-Basic XL arbeiten: Sie 
sollten sich mindestens eine Sicherheitskopie Ihrer Dis- 
kette anlegen. Nehmen Sie sich also eine neue oder eine 
Diskette, die Sie löschen können, und formatieren Sie 
diese. Falls Sie über DOS 2.5 verfügen, können Sie sich 
das Formatieren sparen. Mit der Funktion »J« im DOS- 
Menü wird nun die Diskette kopiert. Wenn Sie ein Disketten- 
laufwerk besitzen, geben Sie jetzt »D1,D1« ein und betäti- 
gen daraufhin die <RETURN >-Taste. Der Kopiervorgang 
beginnt. Dabei werden Sie mehrmals aufgefordert, die 
Original-Diskette mit der Duplikat-Diskette auszutauschen. 

Sie haben jetzt also zwei Disketten vorliegen, die exakt 
die gleichen Programme enthalten. Arbeiten Sie aber bitte 
nur miteiner der Disketten und legen Sie die andere an eine 
sichere Stelle. 

Nach dieser Sicherheitsmaßnahme können Sie endlich 
Turbo-Basic XL ausprobieren. Dazu mußsich nur Ihre Inter- 
preter-Diskette im Laufwerk befinden. Schalten Sie jetzt die 
Stromversorgung Ihres Computers aus und wieder ein. 
Wenn Sie dabei keine Taste, auch nicht die 
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< OPTION >-Taste, mit der normalerweise das eingebaute 
Basic abgestellt wird, betätigt haben, erscheint das Titel- 
bild und kurz danach die READY-Meldung. Sie befinden 
sich jetzt in Turbo-Basic XL. Viel Spaß beim Programmie- 
ren! 


Strukturierte Programmierung 


In der folgenden Beschreibung bedeuten: 
aexp=arithmetic expression (arithmetischer Ausdruck) 
sexp=string expression (Text Ausdruck (A$, "TEXT”, 
CHR$(, STR$(, HEXS() 
lineno=Zeilennummer 
=Ein oder mehrere Befehle. In einer IF-THEN-Abfrage 
handelt es sich hierbei um den nach THEN folgenden Text. 
Sonst gibt es keine Beschränkung. »...« kann also auch 
mehrere Programmzeilen und/oder den Teil einer Pro- 
grammzeile umfassen. 

Es gibt im Standard-Atari-Basic nur zeilennummerorien- 
tierte Sprungbefehle und die »FOR...NEXT«-Schleife zur 
Konstruktion von Schleifen. In Turbo-Basic gibt es zusätz- 
liche, an Pascal angelehnte Strukturelemente. 

IF aexp THEN lineno 

IF aexp THEN ... 

Das normale IF...THEN Statement. 
IF aexp ... ENDIF 

IF aexp ... ELSE ... ENDIF 

Wenn die Bedingung aexp erfüllt (< > 0) ist, wird der Pro- 
grammteil zwischen IF und ELSE, sonst der zwischen 
ELSE und ENDIF ausgeführt. ELSE kann auch entfallen. 
Als Trennzeichen nach aexp dient nicht THEN, sondern ein 
Doppelpunkt (:) oder Zeilenende (RETURN). Auch vor und 
nach ELSE und ENDIF muß ein solches Trennzeichen ste- 
hen. Nach ELSE darf keine Zeilennummer folgen. In Atari- 
Basic benötigt man dafür oft mehrere GOTO-Befehle. 
REPEAT ... UNTIL aexp 

Wiederholt die Anweisungen »...«, bis die Bedingung 
erfüllt ist. Hier wird die Bedingung erst am Ende der 
Schleife geprüft. Der Programmteil zwischen REPEAT und 
UNTIL wird also mindestens einmal ausgeführt. 

WHILE aexp ... WEND 

Wiederholt »...«, solange die Bedingung erfüllt ist, das 
heißt, wenn die Bedingung das erste Mal nicht erfüllt ist, 
wird die Schleife kein einziges Mal ausgeführt. 

0 ... LOOP 

Endlosschleife. Wiederholt die Anweisungen »...«immer 
wieder von neuem. 

EXIT 

Verläßt eine Schleife, Sprung ans Schleifenende. Dieser 
Befehl ist verwendbar bei »DO ... LOOP« und »REPEAT ... 
UNTIL«, »WHILE ... WEND« und auch bei »FOR ... NEXT«- 
Schleifen. Dieser Befehl stellt eine Art Notausgang aus 
Schleifen dar, bei »DO ... LOOP« sogar den einzigen, der 
in strukturierten Programmen erlaubt ist. Es wird stets an 
das Ende der Schleife gesprungen. Eine Schleife läßt sich 
auch mit »POP:GOTO lineno« abbrechen. Dies sollte 
jedoch nur im Notfall geschehen, da dieser Befehl nicht zur 
übersichtlichen Programmierung beiträgt. 

%+F 
“F + 

Nach diesem Befehl sind »FOR ... NEXT«Schleifen 
abweisend. Es wird also vor dem ersten Durchlauf der 
Schleife geprüft, ob der Zähler schon den Endwert erreicht 
hat. Dazu ein Beispiel: »FOR I=2 TO 1:? I:NEXT I«. 

1. Der Anfangswert der Schleife ist 2 

2. Schleifenzähler um 1 erhöhen 

3. Vergleich mit dem Endwert (1) 

4. Verlassen der Schleife, da die Bedingung erfüllt ist. 
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HEISSE==SOFTWARE 
ZU EUBLEN PREISEN! 


Arkanoid 
Atari Aces 


Boulder Dash 
Constr. Kit 


Colossus Chess 


Deeper Dungeons 


Gauntlet 
House of Usher 
Knockout 


Leaderboard Golf 


Living Daylights 


Mercenary 
Compendium 


Quiwi 

Shoot ’Em Ups 
Smash Hits 6 
Spindizzy 

Spy vs. Spy 3 


Summer Games 


The Pawn 


Trailblazer 


SPITZEN-SOFTWARE 
MADE IN GERMANY 


[ÜD, I Ah 
KINGSOFT 
DIN MN BE 


F. Schäfer - Schnackebusch 4 
5106 Roetgen © 02408/5119 
(nicht aufgeben!) 


Atari 800 XU/XE 
Kassette Diskette 


34,95 
38,95 


23,95 
26,95 


26,95 
26,95 
12,95 
26,95 

9,35 

9,95 
26,95 
26,95 


38,95 
38,95 
18,95 
38,95 
14,95 
14,95 
38,95 
38,95 


3895 52,95 
4995 
26,95 
26,95 
26,95 


26,95 


38,95 
38,95 
38,95 
38,95 
52,95 
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5106 Roetgen 


Nach #F + wird zuerst die Variable | mit dem Anfangs- 
wert 2 geladen und dann mit der Variablen I (Endwert=1) 
verglichen. Anschließend wird die Schleife bis zum »NEXT 
I«-Befehl übersprungen. Es erfolgt keine Ausgabe auf dem 
Bildschirm. Der »F+«-Befehl erspart oft eine spezielle 
‚Abfrageroutine. 

AF- 

Stellt den Normalzustand wieder her. »FOR ... NEXT«- 
Schleifen werden mindestens einmal durchlaufen. Auch 
bei RUN wird automatisch ein »*F -« ausgeführt (ent- 
spricht dem Atari-Basic). 

PROC name 

Beginn eines Unterprogramms (Prozedur) mit dem 
Namen name. 

ENDPROC 

Prozedurende. Entspricht dem RETURN nach einem 
»GOSUB lineno«. 

EXEC name 

Ruft die Prozedur name auf, entspricht»GOSUB lineno«. 
Die normalen Befehle GOSUB und RETURN erlauben, nur 
Unterprogramme mit einer Zeilennummer aufzurufen. Hier 
ist der Aufruf mit einem leichter zu behaltenden Namen 
möglich. Außerdem belegt EXEC-PROC-ENDPROC meist 
sogar weniger Speicherplatz als GOSUB-RETURN und ist 
etwas schneller. Die Prozedurnamen werden genauso 
gespeichert wie die Variablennamen. Jeder Name belegt 8 
Byte plus ein Byte für jedes Zeichen. Jede weitere Verwen- 
dung benötigt dann nur ein (zwei) Byte. Die Zeilennummer 
einer GOSUB-Anweisung belegt dagegen 7 Byte. Obwohl 
Turbo-Basic XL kompatibel zu Atari-Basic ist, können statt 
128 jetzt 256 verschiedene Variablen- oder Prozedur- 
namen verwendet werden. Ab der 129sten Variablen kostet 
jede Verwendung zwei statt bisher nur 1 Byte Speicher- 
platz. 

ON aexp EXEC pname,pnam... 

Entspricht der Atari-Basic-Anweisung »ON GOSUB«. 

pnam=PROCedurname. 

# name 

GO# name 

ON aexp GO # nam,nam,nam 
TRAP #name 

RESTORE # name 

Labeldefinition, das # entspricht dem PROC. In Turbo- 
Basic XL läßt sich der unstrukturierte Sprungbefehl GOTO 
wenigstens dadurch lesbarer machen, daß »GOTO zeilen- 
nummer«durch »GO # name« ersetzt wird. Auch bei TRAP 
und RESTORE können Marken verwendet werden. Dabei 
wird die Kennung » #« verwendet, um dem Interpreter mit- 
zuteilen, daß keine Zeilennummer, sondern ein Name folgt. 
Übrigens ist»GO # name« schneller als »GOTO zeile«. Die 
Marken für GO #, TRAP # und RESTORE # werden mit # 
gekennzeichnet, die für EXEC mit PROC. Diese strikte 
"Trennung dient zur Erhöhung der Gliederung und Transpa- 
renz von Programmen. 

POP 

POP gilt für Unterprogramme mit GOSUB und EXEC 
ebenso wie für die Schleifen »FOR ... NEXT«, »REPEAT ... 
UNTIL«, »WHILE ... ENDWHILE« und »LOOP ... END- 
LOOP«. Auf dem Runtimestack belegen GOSUB, EXEC, 
REPEAT, WHILE und LOOP jeweils 4 Byte (wie GOSUB in 
Atari-Basic). »FOR ... NEXT« belegt jedoch 13 statt 12 Byte, 
da jetzt 256 verschiedene Variablen zur Verfügung stehen. 
Auf dem Stack werden jetzt aber nicht mehr die Zeilennum- 
mern gespeichert, ein Grund für das langsame Atari-Basic, 
sondern die Speicheradressen dieser Zeilen. Dadurch wer- 
den Schleifen schneller. Außerdem sinkt die Geschwindig- 
keit der Schleifenwiederholung nicht mit steigender Entfer- 
nung vom Programmanfang! Trotzdem konnte einer der 
Vorzüge von Atari-Basic beibehalten werden: Ein Pro- 
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gramm, das beispielsweise durch einen Programmfehler 
angehalten wurde, kann man editieren und dann mit CONT 
oder GOTO fortsetzen. Dabei werden weder die Variablen 
noch der Stack gelöscht. So lassen sich auch Programme 
schreiben, die ihre DATA-Zeilen selbst generieren oder 
nicht mehr benötigte Programmteile löschen (mit POKE 
842,13, danach verhält sich der Computer so, als würde 
ständig RETURN gedrückt, bis POKE 842,12 den Normal- 
zustand wieder herstellt). Zum Löschen von Programmtei- 
len gibt es in Turbo-Basic XL den DEL-Befehl. 

Dies ist eine spezielle REM-Anweisung. Bei der Eingabe 
einer Programmzeile wird alles nach »- -« nicht beachtet. 
Bei LIST werden aber nicht 2, sondern 30 Minuszeichen 
gedruckt. Diese Anweisung belegt sogar ein Byte weniger 
Speicherplatz als ein REM ohne Text. Eine entsprechende 
REM-Zeile im normalen Basic benötigt wesentlich mehr 
Speicherplatz. 

LIST 

Beim LISTen von Programmen werden Schleifen optisch 
durch Einrücken um jeweils zwei Leerzeichen hervorgeho- 
ben. Programme sind so übersichtlicher und strukturierter. 
Außerdem lassen sich auf diese Art und Weise manche 
Fehler vermeiden. Bei unsauberer Programmierung (meh- 
rere NEXT zu einem FOR, mehrere ENDPROCSs zu einem 
PROC...) gerät das Listing, ebenso wie der Interpreter, 
allerdings in Unordnung. Solche Konstruktionen, die in 
Atari-Basic und vielen anderen Basic-Versionen nur 
schwer zu umschreiben sind, können in Turbo-Basic XL 
leicht durch IF-ELSE-ENDIF oder EXIT ersetzt werden. 
Daraus resultieren wieder leichter lesbare Programme. 
AL- 
schaltet die Tabulierung ab. Dies kann notwendig sein, um 
lange Programmzeilen zu editieren oder um Platz beim 
Speichern auf Diskette (LIST”D:X”) zu sparen. Die Trenn- 
zeile »- -«wird nach»%L-«nur als doppeltes statt dreißigfa- 
ches Minus-Zeichen gelistet. 

«L 

ıL+ 

schaltet die Tabulierung wieder ein (Normalzustand nach 
dem Laden des Interpreters). Übrigens gibt es jetzt auch 
einLIST von einer Programmzeile bis zum Programmende. 
»LIST 3000,« listet ab Zeile 3000 bis zum Programmende, 
»LIST”P:” ‚3000,= entsprechend auf den Drucker (das ein- 
zelne Komma »,« nach der Zeilennummer veranlaßt den 
Computer, automatisch 32767 für die höchstmögliche Zei- 
lennummer zu ergänzen). 


Neue Fehlermeldungen 


Es gibt folgende neue Fehlermeldungen: 
ERROR - 22 ?NEST 

Schachtelungsfehler, tritt auf, wenn das zu einem WHILE 
gehörende ENDWHILE nicht gefunden wird, oder das 
ENDIF zu einem IF, oder auch, nach»% F +«, das NEXT zu 
einem FOR. Beim Verlassen von Unterprogrammen (durch 
RETURN oder ENDPROC) werden Schleifen abgebro- 
chen, dies gilt sowohl - wie gewohnt - für die »FOR ... 
NEXT«-Schleife, wie auch für die anderen unter Turbo- 
Basic XL zur Verfügung stehenden Schleifen. 
ERROR - 16 ?GOSUB 

Zu einem GOSUB fehlt RETURN. 
ERROR - 13 ?FOR 

Zu einem NEXT fehlt FOR. 
ERROR - 23 ?WHILE 

Zu einem WEND fehlt WHILE. 
ERROR - 24 ?REPEAT 

Zu einem UNTIL fehlt REPEAT. 


ERROR - 25 ?DO 

Zu einem LOOP fehlt DO. 
ERROR - 28 ?EXEC 

Zu einem ENDPROC fehlt EXEC. 
ERROR - 29 ?PROC 

Eine unbekannte Prozedur wurde aufgerufen. 
ERROR - 30 ?# 

Eine unbekannte Marke wurde verwendet. 
ERROR - 27 XPROC 

(Executing PROC). Diese Fehlermeldung tritt auf, wenn 
eine PROC-Anweisung ausgeführt wird. Prozeduren dür- 
fen nur von EXEC aufgerufen werden. 
ERROR - 26 ?EXIT 

EXIT ohne Schleife. 
ERROR - 15 ?DEL 

Das GOSUB zu einem RETURN, NEXT zu einem FOR, 
REPEAT zu einem UNTIL ... wurde gelöscht. In Atari- und 
in Turbo-Basic XL lassen sich Programme editieren, ohne 
Variablenwerte oder den Stapel zu zerstören. Wenn dann 
bei Rückkehr aus einem Unterprogramm (Schleife) die ent- 
sprechende Zeile gelöscht oder verändert wurde, kann die- 
ser Fehler passieren. Dies tritt auch auf, wenn ein in ein 
Programm eingebautes DEL sich selbst löscht. Alle Fehler- 
nummern, die Atari-Basic ohne irgendwelche Texte aus- 
gibt, werden in Turbo-BasicXL grundsätzlich mit einem kur- 
zen Text ergänzt (beispielsweise »138 TIMEOUT«, »29 
?PROC« etc.). Ausführlichere Erläuterungen können dem 
Atari-Basic Referenz Manual oder der DOS-Anleitung ent- 
nommen werden. Längere Texte würden, bei den insge- 
samt 60 zur Verfügung stehenden Fehlern, den Platzbedarf 
des Interpreters noch wesentlich erhöhen. 
DEL von,bis 

Löscht die Programmzeilen von - bis (jeweils ein- 
schließlich). 
RENUM alt,neu,incr 

Numeriert alle Programmzeilen ab Zeile alt um. Die 
neuen Zeilennummern beginnen bei neu und werden 
jeweils um incr erhöht. Alle Zeilennummern vor alt bleiben 
unverändert. Dieser Befehl ändert auch die Zeilennum- 
mern nach GOTO, GOSUB, TRAP, RESTORE, LIST, DEL, 
ON-GOTO und ON-GOSUB. Bei Verwendung undefinierter 
Zeilennummern wird die entsprechende negative Zahl ein- 
gesetzt (beispielsweise GOTO-100). Bei berechneten 
Sprüngen (GOTO VAR, GOSUB 100+10%A, RESTORE 
Ax10+1000) versagt RENUM. Wenn hinter dem Befehl 
eine Zahl folgt »GOTO 1000+A & 10«, wird die Zahl wie bei 
einem normalen Befehl »GOTO 1000«behandelt. Der nach- 
folgende Programmteil der Zeile bleibtjedoch unverändert. 
Wenn keine Zahl, sondern ein Variablenname oder eine 
Klammer folgt, wird der Befehl überhaupt nicht verändert. 


DUMP 
DUMP filespec 

Dieser Befehl erzeugt eine Liste der verwendeten Varia- 
blen. Wie bei LIST kann die Ausgabe auch auf einem 
Drucker erfolgen (DUMP ”P:”). 


Ein Beispiel: 

A = 100 numerische Variable 

B( 10,1 Array, DIM B(9) oder DIM B(9,0) 

c(00 undimensioniertes Array. Bei Arrays werden 
die beiden möglichen Dimensionen stets 
um 1 erhöht angezeigt. 

D( 10,10 DIM D(99) 

E$ 10,20 String, LEN=10, DIM E$(20) 

F$ 0,0 nicht dimensionierter String 

G$ 0,10 DIM G$(10), LEN(G$)=0 

H PROC 100 PROC H in Zeile 100 

I # 120 Marke I in Zeile 120 

J? Undefinierte Marke oder PROC 


Die Ausgabe der Variablen/Marken erfolgt in der Reihen- 
folge, wie sie in der Variablentabelle gespeichert sind. 
TRACE 
TRACE + 

Schaltet den TRACE-Modus ein. Das heißt, die Nummer 
jeder ausgeführten Zeile wird in eckigen Klammern auf 
dem Bildschirm ausgedruckt. 

TRACE - 

Hebt TRACE wieder auf. Der TRACE-Modus wird außer- 
dem aufgehoben, sobald eine Fehlermeldung auftritt. Die 
Zeilennummern eines PROC oder # werden bei Aufruf mit 
EXEC oder GO # nicht ausgegeben. 

*B 
*B + 

Nach diesem Befehl wird das Drücken der <BREAK>- 
Taste wie jeder andere Fehler behandelt. Eine Program- 
munterbrechung läßt sich mit TRAP abfangen und so vor 
einer versehentlichen Unterbrechung schützen. 

AB- 

Hebt den oben erwähnten Modus wieder auf. Bei RUN 

wird »% B -« automatisch ausgeführt. 


Befehle 


Erläuterung: 
<=> steht für: entspricht im normalen Basic 
DPOKE adr,word 

Doppel-Byte-POKE <=> POKE adrword-256% INT(wort/ 
256):POKE adr-+1,INT(wort/256) 
MOVE source,dest,count 

Blocktransfer <= > FOR I=0 TO COUNT-t:POKE dest+ 
I,PEEK(source+1):NEXT I 

Mit »MOVE 57344, NEUCHARSET,1024« läßt sich bei- 
spielsweise der Zeichensatz kopieren. 
-MOVE source,dest,count 

Blocktransfer, zuerst wird das letzte Byte verschoben. 
Dies ermöglicht, einen Speicherbereich zu einer höheren 
Adresse zu verschieben, ohne daß es bei Überlappungen 
(wenn source+count>dest) zu Zerstörungen kommt. 
<= > FORI=COUNT-1 TOO STEP -1:POKE dest+1,PEEK 
(source+1):NEXT I. MOVE kann auch benutzt werden, um 
einen Speicherbereich zu füllen. Beispiel: »POKE 
DPEEK(88),128:MOVE - DPEEK(88),DPEEK(88)+1,959«. 
Dies schreibt den Textbildschirm mit dem Bildschirmcode 
für das inverse Leerzeichen voll. Obwohl hier viele, eigent- 
lich unnötige Ladevorgänge stattfinden, ist dies viel schnel- 
ler als eine Basic-Schleife. 
BPUT #n,adslen 

Blockschreiben <= > FOR I=0 TO len-1:PUT #n,PEEK 
(adr+1):NEXT I 
BGET #n,adrlen 

Blocklesen <=> FOR I=0 TO len-1:GET #n,A:POKE 
adr+1,A:NEXT I 

Mit diesen Befehlen kann man Speicherbereiche mit 
maximaler Geschwindigkeitspeichern und laden. Beispiel: 
OPEN #1,8,0,” D:BILD.PIC”:BPUT #1,DPEEK(88),7680: 
CLOSE #1 
OPEN #1,4,0,”D:BILD.PIC”:BGET #1,DPEEK(88),7680: 
CLOSE #1 

Speichern oder Laden eines Grafik-8-(oder 9,10,11,15)- 
Bildes auf Diskette. Achtung: Die Zahl 7680 muß je nach 
Grafikmodus geändert werden (sonst werden nicht mehr 
zum Bildspeicher gehörende Speicherbereiche mit- 
gelesen oder -geschrieben) 
%PUT 

Mit diesem Befehl lassen sich Zahlen schneller und kom- 
pakter auf Diskette oder in einer RAM-Disk speichern. 
Dabei werden immer sechs Byte gepeichert. 
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%GET 

Zum Lesen von Zahlen, die mit %PUT auf ein Speicher- 
medium gespeichert wurden. Ein Beispiel für die Anwen- 
dung von %PUT und %GET finden Sie auf Seite 70. 
FILLTO x,y 

Kurzschreibweise, schneller und übersichtlicher als: 
»POSITION x,y:XIO 18, #6,0,0, "S:” FCOLOR n« 

Wählen der Farbe für FILLTO. In Standard-Basic heißt 
dieser Befehl »POKE 765,n«. 

CLS 
CLS #6 

Bildschirmlöschen. CLS <=> A=PEEK(766):POKE 
766,0:POSITION 0,0:? (#6;)CHR$(125);:POKE 766,A 
PUTn 

<= > ?CHR$(n); beispielsweise »PUT 253« für»? CHR$ 
(253);«. Bei PUT, GET, INPUT... ist auch die Angabe » #0« 
möglich. Die Benutzung von »IOCB 0« (mit »CLOSE« oder 
»OPEN #0«) verhindert allerdings das ordnungsgemäße 
Arbeiten des Bildschirm-Editors, gegebenenfalls 
<SYSTEM-RESET> drücken. Fehlt bei PUT die 
#-Angabe, so wird automatisch »IOCB #0« benutzt. 
GET KEY 

<=> OPEN #7,4,0,”K:”:GET #7,KEY:CLOSE #7. 
Wartet auf Tastendruck und weist der Variablen KEY den 
ATASCII-Wert der gedrückten Taste zu (der Variablenname 
ist frei wählbar). 

DIM 

Beim DIM-Befehl werden Arrays und Strings automa- 
tisch gelöscht, also auf 0 gesetzt. DIM A(100) <=> DIM 
A(100):FOR I=0 TO 100:A(l)=0:NEXT | 
INPUT text” ‚varvar... 

INPUT "text" ;varvar... 

INPUT ännelt jetzt sehr stark dem entsprechenden 
INPUT-Befehl unter Microsoft-Basic. Ein Text nach INPUT 
erspart die sonst nötigen PRINT-Befehle. Folgt nach dem 
Text ein Semikolon statt eines Kommas, so wird zusätzlich 
ein ? ausgegeben. Mit»INPUT ” ”;A«erreicht man ein Input 
ohne das manchmal störende »?«. 

TEXT x,ysexp 
TEXT x,yexp 

Schreibt einen Text in ein Grafik-Bild. »x,y« stellt die Posi- 
tion der oberen linken Ecke des ersten Zeichens des String- 
Ausdrucks (wird in Bildpunkten gezählt) dar. Beispiel: 
»GRAPHICS 8TEXT 50,90, "Turbo-Basic” TEXT 
70,95,1000«. Im Gegensatz zum normalen PRINT-Befehl 
darf nach TEXT nur ein Ausdruck erfolgen (keine Liste mit 
Komma oder Semikolon). Außerdem werden Texte am Zei- 
lenende abgebrochen, es gibt auch kein Scrolling. 
CIRCLE xO,yO,r 
CIRCLE xO,yO,xr,yr 

Zeichnet einen Kreis um den Punkt x0,yO mit dem Radius 
r. Bei Angabe zweier (unterschiedlicher) Radien für die 
x- und y-Richtung entstehen Ellipsen. 

PAINT x,y 

Füllt eine geschlossene Figur, beispielsweise einen 
Kreis, mit der mit COLOR gewählten Farbe. Dieser Befehl 
kann fast jede beliebige Figur mit einer bestimmten Farbe 
füllen. Da hierbei eine für den 6502 angepaßte, rekursive 
Funktion benutzt wird, ist der Komplexität der auszufüllen- 
den Figur durch den freien Speicherplatz eine Grenze 
gesetzt. Im Extremfall würde ein Arbeitsbereich von etwa 
90 KByte RAM benötigt. Auch einfache und kleinere Figu- 
ren belegen vorübergehend einige hundert Byte. Sollte der 
Speicher überlaufen (FRE{0) zu klein), so gibt es die Fehler- 
meldung »ERROR - 2 MEM«. Die PAINT- und die TEXT- 
Routine benutzen eigene, schnelle Plot-Routinen,. da hier- 
bei viele nebeneinander liegende Punkte relativ einfach 
berechnet werden können. Hiervon machen die Routinen 
im Atari-Betriebssystem leider keinen Gebrauch. 


TIME$= siehe unten 
PAUSE n 

Unterbricht die Programmausführung für n/50-Sekun- 
den. PAUSE ersetzt das ungenaue und speicherplatzfres- 
sende Timing mit leeren FOR-NEXT-Schleifen. In Atari- 
Basic wird oft die Potenzierung (A=1"1) für eine kleine Ver- 
zögerung benutzt. Da Turbo-Basic XL bei der Potenzierung 
besonders schnell ist, sollte dafür beispielsweise »PAUSE 
9« benutzt werden. 
DSOUND voice,freg,dis,vol 

Ähnlich dem normalen SOUND-Befehl. Der Atari- 
Computer kann zwei normale Stimmen zu einer zusam- 
menfassen. Die Frequenzauflösung beträgt dann 16 Bit 
(0..65535) statt 8 Bit (0.255). Die resultierende Frequenz 
berechnet sich (in Hertz) zu: 1789790/(2% freg+14) statt 
sonst 63921/(2% freg+2). Diese Werte stammen aus einer 
amerikanischen Veröffentlichung und unterscheiden sich 
eventuell etwas von den Werten bei den deutschen Atari- 
Versionen, da sie von der Videofrequenz abgeleitet sind, 
die in den USA einen anderen Wert besitzt (siehe auch 
Seite 124). 
DSOUND 

Kurzform tür: FOR I=0 TO 3:SOUND 1,0,0,0:NEXT I 
CLOSE 

Kurzform für: FOR I=1 TO 7:CLOSE #I:NEXT I 


Funktionen 
DPEEK(adr) 
Doppel-Byte-PEEK <=> PEEK(adr)+256% PEEK 
(adr+1) 
INKEYS 


Spezialvariable. Wenn eine Taste gedrückt wird, enthält 
INKEY$ das entsprechende Zeichen. Wenn nicht, enthält 
sie einen Leerstring (” ”). So läßtsich ein Tastendruck ver- 
arbeiten, ohne den Programmablauf zu unterbrechen. 
INSTR(A$,B$) 

INSTR(AS,B$,i) 

Sucht einen String B$ in einem (längeren) String A$. 
Wenn gefunden, wird die Position von B$ in A$ zurückgelie- 
fert, sonst eine Null. »i« stellt den Index (Position) dar, ab 
dem die Suche beginnen soll. 

UINSTR(A$,B$) 
UINSTR(AS,B$,i) 

Ähnlich INSTR. Die Bits 7 und 5 der einzeinen Zeichen 
werden nicht beachtet. Bei der Suche nach »MODEM« läßt 
sich so auch »Modem«, »MoDeM« oder der entsprechende 
inverse Text finden (UINSTR steht für UppercaselNSTR). 
Als Nebeneffekt werden bei der Suche nach Zahlen oder 


Satzzeichen auch die Spezial-Zeichen gefunden 
(*!”=CTAL-A,”0”=CTRL-P etc.). 
ERR 


Kurzform für »PEEK(195)« zur Ermittlung des Feh- 
lercodes. 
ERL 

Kurzform für »PEEK(186)+256% PEEK(187)«. oder 
»DPEEK (186)« zur Ermittlung der Zeile, in der ein Fehler 
aufgetreten ist. ERR und ERL sollten in TRAP-Routinen 
verwendet werden. 
TIME 

Spezialvariable, enthält die Zeit (vom internen Timer 
RTCLOCK des Atari-Computers, ausschlaggebend sind 
die Speicherzellen 18 bis 20) in 1/50-Sekunden. 
TIME$ 

Spezialvariable, enthält die Zeit als sechsstelligen String 
im Format hhmmss (hh=Stunde 00 bis 23, mm=Minute 00 
bis 59, ss=Sekunde 00 bis 59). 
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TIME$= 

Zum Stellen der Uhr. »TIME$= "151520 « stellt die Uhr 
auf 15 Uhr, 15 Minuten und 20 Sekunden. Die Variable 
TIME läßt sich nicht direkt verändern. Statt dessen wird ent- 
weder »TIME$=« verwendet oder entsprechend in die Spei- 
cherstellen 18 bis 20 gePOKEt. Die Uhr geht nicht ganz 
genau, da die Frequenz, mit der im Atari die Fernsehbilder 
erzeugt werden, nicht genau 50 Hz beträgt. TIME$ wird von 
dieser Frequenz abgeleitet. 

FRAC(exp) 

Diese Funktion ermittelt den Nachkommaanteil einer 
Zahl. »FRAC(exp)« ist nicht immer gleich »exp-INT(exp)«, 
da INT die nächstkleinere Zahl ermittelt. So ergibt »? 
INT(-0.3)« -1,»2? FRAC(-0.3)« ergibt -0.3. 

TRUNC{exp) 

Diese Funktion ermittelt den ganzzahligen Anteil einer 
Zahl. Dies ist die zu FRAC komplementäre Funktion. »? 
TRUNG(-0.3)« ergibt 0. 

RND 

RND (irgendwas) kann in Turbo-Basic XL abgekürzt wer- 
den, indem man die Klammern wegläßt. Es wird also RND 
statt RND(0) verwendet (speicherplatzsparend). 

RAND(n) 

Dies ist die Kurzschreibweise für sTRUNC(RND(0)%* n)« 
und erzeugt eine ganze Zufallszahl zwischen einschließ- 
lich O und (ausschließlich) n. 

HEX$(exp) 

Ähnlich STR$. HEX$ wandelt die Integerzahl exp 
(0<=exp<=65535) in einen sedezimalen (hexadezima- 
len) String um. Wenn exp kleiner als 256 ist, ergibt dies 
einen zweistelligen String, sonst einen vierstelligen. 
DEC(sexp) 

Ähnlich VAL, Umkehrung zu HEX$. Der String sexp wird 
in eine dezimale Integerzahl gewandelt. Wenn sexp mehr 
als vier gültige sedezimale Ziffern enthält, so gelten nur die 
letzten vier. 
$aaaa 

Sedezimalzahl im Programm. Beispiel: 

FOR 1=$0600 TO $067F:READ A:POKE 1,A:NEXT I 
statt: 

FOR 1=1536 TO 1663:READ A:POKE 1,A:NEXT I 

& Binäres AND 

! Binäres OR 

EXOR Binäres exclusiv OR 

Diese drei Operatoren arbeiten mit 16-Bit-Integern. Also 
mit Zahlen zwischen 0 und 65535 und nicht mit Boolschen 
Größen (1 oder 0) wie die Operatoren AND, OR und NOT. 
DIV 

Division ohne Rest: aDIVb <=> TRUNC(a/b) 

MOD 

Bestimmung des Divisionsrestes (Modulo): a MOD b 
<=> a-b’TRUNC(a/b) 
%0 %1 %2 %3 

Die Zahlen 0 bis 3 sind als Konstanten definiert. Die Ver- 
wendung einer Zahl (auch $aaaa) im Programm kostet 
jedesmal 7 Byte, die Verwendung einer Variablen, unab- 
hängig von der Länge des Namens, jedoch nur 1 oder 2 
Byte. Auch die Verwendung von %0 bis %3 belegt eben- 
talls jeweils 1 Byte, aber keinen Eintrag in der auf 256 Varia- 
blen begrenzten Variablentabelle. 

In Strings oder in zwischen Anführungszeichen stehen- 
dem Text ist es jetzt möglich, »”« (entspricht CHR$(34)) 
durch doppelte Anführungszeichen (” ”) einzufügen. Bei- 
spiel: »?"TEST” "TEXT ”« erzeugt den Ausdruck: »TEST- 
"TEXT«, In Atari-Basic muß man dafür schreiben: »? 
"TEST ";CHR$(34); 

"TEXT ”«. Bei Zuweisungen (A$= TEST” "TEXT”)ist das 
(in Atari-Basic) noch etwas umständlicher. 
Turbo-Basic XL wandelt bei der Eingabe von Programm- 
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zeilen automatisch kleine in große und inverse in normale 
Buchstaben um. Dies gilt natürlich nicht zwischen Anfüh- 
rungszeichen (”) sowie nach REM oder DATA-Befehlen. 
Somit lassen sich Programme auch mit Kleinbuchstaben 
eingeben, ohne ständig zwischen Groß- und Kleinbuchsta- 
ben (mit der <CAPS >-Taste) hin- und herzuschalten oder 
ständig <SHIFT> drücken zu müssen. 

In Variablen- und Prozedurnamen ist außer den Buchsta- 
ben und Ziffern auch das Unterstreichungszeichen »_« 
(<SHIFT ->) zugelassen. So sind endlich Namen wie 
MAX__LEN oder PROG SORT__KUNDEN erlaubt. 


Disketienbefehle 


DIR 
DIR "D1:%.%” 

Ausgabe des Inhaltsverzeichnisses einer Diskette auf 
dem Bildschirm. »DIR”D1:*.x% ” «listet alle Files von Dis- 
kette 1, »D2:Ax.x* « alle Files von Diskette 2, deren Name 
mit A beginnt.»D1:% .% «kann entfallen, dann wird automa- 
tisch »D:%* .% « eingesetzt (ähnlich wie im DOS-Menü mit 
»A RETURN RETURN.). Bei diesem Befehl sind String- 
variablen wie auch bei den folgenden Befehlen zulässig. 
RENAME ”D:OLD,NEW” 

Benennt das File OLD in NEW um. Entspricht: »XIO 
32, #7,0,0,” D2:OLD,NEW” «oder der DOS-Menü Auswahl 
E 


DELETE "D:FILE” 

Löscht ein File (entspricht »XIO 33« oder der DOS-Menü 
Auswahl D). 

LOCK "D:FILE” 4 

Schützt ein File gegen Überschreiben (entspricht »X1O 
35« oder der DOS-Menü Auswahl F). 

UNLOCK ”D:FILE” 

Hebt den Schreibschutz wieder auf (entspricht »XIO 36« 
oder der DOS-Menü Auswahl G). 

BLOAD ”D:FILE.OBJ” 

Lädt ein binäres File (entspricht der DOS-Menü Auswahl 
L mit »/N« nach dem Filenamen). 

BRUN ”D:FILE.OBJ” 

Lädt ein binäres File und startet es, wenn eine RUN- 
Adresse im File enthalten ist (entspricht der DOS-Menü 
Auswahl L, ohne angehängtes »/N«). 

Damit sind die zusätzlichen Befehle und Funktionen von 
Turbo-Basic XL erklärt. Selbstverständlich stehen darüber 
hinaus noch alle anderen Befehle, die man vom normalen 
Basic her kennt, zur Verfügung. Mit Turbo-Basic XL wird die 
Programmierung auf dem Atari 800XL/130XE zur wahren 
Freude. Befehle, die man sich schon lange gewünscht hat, 
stehen jetzt endlich zur Verfügung. 

Autostart 

Mit Turbo-Basic XL ist es möglich, nach dem Einschalten 
des Computers ein Basic-Programm automatisch zu laden 
und zu starten. Dazu benennen Sie Ihr Basic-Programm 
einfach in AUTORUN.BAS um. Vergessen Sie nicht: Das 
eigentliche Turbo-Basic muß dann mit dem Namen AUTO- 
RUN.SYS auf Diskette vorliegen. 

(Frank Ostrowski/Werner Breuer/hf) 


Steckbrief. 
Programm: | Turbo-Basic XL 
Sprache: | Assembler 
Eingabehilfe: AMPEL 
Datenträger: Diskette, Kassette 
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S2<ED> 
D2<6A> 
AS<CA> 
43<OR> 
A9E1> 
AS<Or> 
Ar<D7> 
A1<6A> 
AA<DE> 
CB<44> 
52<c8> 
ABLE» 
AE<IE> 
D2<7C> 
44<0D> 
494557 
AD<DE> 
AE<CE> 
SSCHD> 
B2<39> 
AE<EA» 
32<45> 


35D8:B5 90 03 82 
33E0:19 8C BC 98 
3568: 03 


3610:03 82 02 85 
3618:03 12 DS 02 @3 
3620:12 C4 12 BS 9@ 
3628:02 90 03 96 82 


3698:03 8C IE CA 9@ 
36AB:03 81 02 84 AE 
S6A0:02 03 AE 02 05 


02 RS 05 CD 
CE 05 co @2 
03 40 02 41 
a2 sc a5 sn 
@3 8C 04 05 
36D8:D3 ®2 95 26 ar 
36£0:12 92 05 88 Da 
36£9:3C 85 SF 2C 05 
26 90 02 25 
ec 12 93 02 
BF EA 72 E9 
76 E9 6E €9 
&E EE 78 EE 
84 EE 87 EE 
83 Er 96 Er 
ıc F@ sc Er 
38 EF 8 EF 
73 EF 99 EF 
I7AB:EF 56 ER 28 EF 
374B:EF 40 EF 44 EF 
EF 64 EF za F@ 
EF EI EF E6 EF 
EE BE EE C3 EE 
EE CF EE D9 EE 
FO DF EE 1D F® 
EF 32 EF 47 EF 
EF 82 EF AI ER 
EF AS EF Ba ER 
EF Ca EF DA Er 
EF FL EF FA ER 
37AQ:FO FR EF 85 F@ 
37A8:ıF@ 4E EF 52 EF 
S7RO:EF 6C EF 
ZB 
[52 
[52 


BERBBFTSEHSERRSSZERSTBLTTTENRULREETASTEEHRREBRREHHHERRURAMRFERSRBFERRSTSRNBÄRBARRARHNERRBARENUE 


BICZB> 
35667> 
BO<C9> 
BR<B3> 
Or<D7> 
OF<DD> 
6B<ACc> 
@2<SE> 
@2<9a> 
B2<9F> 
BS<FO> 
DI<ED> 
BS<CE> 
BZIF9> 
@x<cD8> 
BF<B7> 
BrF<BA> 
BOF<BS> 
DF<OA> 
CEX6c> 
ar<as> 
ZE<BCH 
BC<SCH 
@2<18> 
AF<BE> 
9O<24> 
BF<CC> 
BE<A9> 
BC<BA> 
@2<A7> 
BE<71> 
PRLAB> 
BE<SS> 
DE<EB> 
@2<E1> 
98<75> 
82<70> 
IR<ıD> 
B3<A9> 
D3<aa> 
17<94> 
Q2<8n> 
C6<Sar> 
BF<AS> 
2C<16> 
B2<SF> 
FRSDC> 
AD<22> 
@3X19> 
@S<ED> 
@2<F2> 
@2<2E> 
@2<6B> 
3C33> 
BE<S6> 
Br<Da> 
90<07> 
90<95> 
11<A9> 
B4<65> 
FZ<IF> 
6ICES> 
ZC<ca> 
PB<a5> 
37<19> 
14<12> 
SE<ED> 
ID<Sa> 
30<74> 
22<08> 
FSCC1> 
CB<AQ> 
27<D2> 
1E<33> 
68<23> 
SCSZE> 
BR<SR> 
ED<1A> 
14<23> 
QE<ac> 
F7ESCH 
T2<86> 
1C<B5> 
ZBCRS> 
57<04> 
5D<14> 
60<46> 
BR<ED> 
BA<as> 
22<98> 
AT<ER> 
EA<89> 
20<97> 
EA<OF> 


3A70:C9 
SATB:AF 
ABB: BB 


SASSSBTFENSIEZISTREHSBBARISTSBHRBNIRUENEANFERSAHNNENNESHERB 


SESRTFABABAERHAAHBREBFETSBATLTER 


F2 


BEZTITEAERANSE 


SESERSBBNILBSSERRRREE 


€2 


N 


B333333388 


Es 


A7SaR> 
F@<23 

AE<SD> 
IO<SE> 
BB<SE 
2568> 
AS16> 
F2<B8> 
BASTE> 
E6<CD> 
FO<ES> 
BS<AcH 
ZBEIE> 
A6LE9» 
BI<B6> 
20<C7> 
65141 > 
SO<FA> 
AF<BS> 
29<39> 
10<D8> 
FI<B6> 
BI<BS> 
FRIE> 
AQ<DS> 
Ba<66> 
DA<FD> 
ABSFC> 
8A<22> 
FZ<E1> 
20<BD> 
Sa<Be> 
FS<20> 
20<10> 
&2<CF> 
O2<ac> 
Fa > 
C2<6E> 
FS<SB> 
FRIC> 
ACCES> 
Sxe8> 
C9<7D> 
C2<EB> 
au<9a> 
ZB<BB> 
EZ<7B> 
BIBA> 
AF<OB> 
D@<25> 
P6<37> 
ZB<FS> 
18<D9> 
TI<9E> 
SAR<EZ> 
&1<RD> 
6A<25> 
3D<81> 
TF<BC» 
F2<B3> 
AB<ER> 
BA<CB> 
FSCIE> 
ABSEA> 
cac11> 
CRAs> 
CRFB> 
ZB<F2> 
BI<CH> 
FASEC> 
6BCFA> 
BI<CE> 
60<07> 
BE<CS> 
B6<Fa> 
BSAC> 
ZB<FC> 
BI<E6> 
898<95> 
86<19> 
F7<8s> 
9030: 
227793 
DD<IA> 


QBCF1> 


AB<AB> 
EIC6B> 
FISFB> 
Ca<Sa> 
Ba<A7> 
BBCAS> 
M1<F6> 
B3<17> 
IOER> 


SB08:48 
SB10:AS 
3B18:C7 


SCAB:B1 
SCB@:AS 
SCRB: BZ 
SCCB:D7 
3CCB: BD 
CB: 25 
SCDB:AS 
SCEB: 88 
3CE8:20 
SCF@: 68 
SCFe:F@ 
SDAR: 17 
SDB8:AS 
3D19:51 
SDIB:AF 
3028: C4 
3028:69 
3030: 18 
3D38:85 
3DA0: 60 
3D48: 91 


FO<C9> 
ASEE> 
Fa<98> 
IOSF3> 
arcı8> 
CB<@4> 
CS<c5> 
FB<S6> 
BB<9B> 
BA<94> 
Ba<SA> 
CHF9> 
a8<Fa> 
C&61> 
BS<ES> 
R1<75> 
EACIF> 
EXER> 
11605> 
FaZ16> 
BI<A7> 
9078 > 
C5<88> 
D7<SC> 
DO<CC> 
Q6xan> 
@S<B2> 
B0<86> 
SSFB> 
60<D2> 
C2<49> 
BBe1L> 
FS<7B> 
BSOr> 
E7<QE> 
AF<DD> 
SRAa> 
BO<IA> 
BR<e6> 
ACKER» 
CAAR> 
AB<EF> 
ATICA> 
FS<Sa> 
A3212> 
Ca<37> 
ISHE> 
ACKAR> 
@7<74> 
A932» 
54<58> 
G1<CB> 
ABSCS> 
AR<20> 
AC<Ba> 
BA<aA> 
ZU<ER> 
18CBS> 
AB<CD> 
axıc> 
68A1> 
RKAR> 
CA<EB> 
FA<6B> 
AIBA> 
ACKBE> 
arcsa> 
CHKICH 
DA<BF> 
@9<97> 
QE<I2> 
DA<F6> 
CB<c8> 
N<FB> 
ASCA9> 
BE<ICH 
BF<92> 
BOSFF> 
EABS> 
ARLEO> 
AR<aB> 
CBXas> 
08<07> 
F6<50> 
B4<FD> 
84<29> 
BD<ED> 
49<94> 
FFeACH 
3893 
B5169> 
CA<Cs> 
CRB1> 
Fa<07> 


F@ 12 c9 o@ 
DD E@ 68 AS 
D7 ac ıF F7 
As A7 88 Bi 
c9 E6 07 D® 
89 16 4C DC 
ea 3a F2 ı8 
85 8A 90 @2 
B1 BA s@ Ei 
IF CB 84 a7 
1E F4 20 08 
686 21 DB 27 
SE A2 SF 4C 
E4 20 D3 F7 
DB B& A6 an 
an a9 04 20 
4C 26 F8 60 
12 C9 SE Da 
AA B2 88 84 
2C A9 18 4C 
c5 91 98 86 
880 37 38 AS 
9@ 85 QE BB 
@F AD 05 Bi 
sı 90 8s Aal 


Fi AB @ı Bi 
67 AB F9 20 
Rı 8A 85 D5 


66 FF 4C 7E 
D4 2 DC 2B 
F3 Aa Fa 85 
E2 Fı 28 a1 
4E 45 aa SE 
C4 &D 45 CD 
C5 SE 23 56 
4C 45 CE SF 
3E 35 32 37 
5@ 55 Da 44 
41 43 CB 4F 
4C AF D7 3F 
IF 46 AF D2 
ac ar ae C7 
IF 47 a6 55 
52 a2 a1 a7 
D2 40 35 cD 
41 C4 5F 4E 
57 28 49 ac 
5® 35 31 D4 
45 58 49 D4 
C3.3F 45 58 
52 4F C3 3F 


Listing »Turbo-Basic XL« 
(Fortsetzung) 


Da 20 56 F9 20 


DE<AD> 
D7<20> 
9<77> 
BA<BZ> 

05<99> 
FBCA7> 
AS<a2> 
E6<93> 
Ca<34> 
AC<1D> 
EA<FB> 
20<58> 
BBIF> 
BR<9B> 
BC<15> 
24<39> 
ZB<DF> 
IB<BS> 
A7<7D> 
DC<23> 
ASSOr> 
IOLF3> 
BR<EA> 
IQ<19> 
SE<ED> 
DO<SB> 
BIEr> 
C6<5B> 
D3<21> 
CIFS> 
F@<Sc> 
AS<SD> 
8x<1a> 
02<38> 
2C<SC> 
FR<21> 
AI<DI> 
1E<SA> 
C9<DB> 
caHEn> 
S8<0C> 
FRCDF> 
BI<BF> 
80<22> 
DF<EF> 
B1<6D> 
CR<FE> 
DE<DE> 
DC<A7> 
AS<DA> 
AILEA> 
AI<DS> 
20<44> 
BD<DS> 
3@<C7> 
ABCAF> 
AC<7a> 
BS<EA> 
I7<2E> 
20<39> 
@z<Ds> 
OC<ER> 
BR<71> 
BARLEE> 
SR<SF> 
8X<2C> 
<B> 
ESSAR> 
20<75> 
ISCF9> 
54<D4> 

A2<3A> 

S6<7E> 
a1<DS> 
A4<OB> 
36<c55> 

4I<EO> 

56<D6> 

AC<AD> 
54<98> 

SFASA> 
SSEIF> 
CS<D1> 
AS<1A> 

AI<EB> 
CSEFF> 

SF<FF> 
SB<1R> 

sS5<Or> 
AS<37> 


2a ar 
D6 57 

a3 8D 

so 45 

s€ ac 

SS 4£ 

ss Da 

a1 a0 

D2 21 

CE 43 

2118:CD 44 aF 4E 
A120:C5 4E AF 5a 
41 cD 

Au Am 

4138:44 SF BA SE 
4140:45 DS 34 53 
4148:40 CC 46 a1 
CF a6 

40 c5 

ar a3 

4168343 AD C4 Zi 
4170:46 49 AC CS 
4178:D4 IF 41 50 
4180:41 44 28 53 
4188:52 DS AS 14 
4190:C5 14 DO F6& 
4198:D4 28 DC 2B 
A1AG:FB 95 E@ CA 
4148:26 28 9C 2E 
A1BB:2@ 85 DS 2@ 
ea os 

s1C0:3A ES 20 CA 
41C8:05 BD 6E FB 
A100: F& 20 00 28 
41D8:C9 40 DO @2 
s1E0:N7 24 20 3@ 
41EB:39 FB A9 60 
= ga ac 
20 °C 

4200:68 85 DS 2a 
AZOB:AS DA CO 40 
4210:85 DS 78 aA 
4218:20 58 FB 8A 
4220:09 SA 90 82 
4228:99 88 05 E6 
22 22 

2a 20 

84 F2 

FBC9 

13 FC 
27 26 

A260: FC 20 CA FB 
4269:20 DE FB 20 
Eu ns 

8 

cs 

D2 

Es 

v2 

62 

E6 

co 
22 

E2 
e@ 


8 
[23 
28 
20 
c# 
20 
Bo 
20 
DE 
AS 
84 13 
ac 
rg 
aa 
[23 
65 
9o 
E] 
E2 
E1 
e2 


95 
4288:D7 F@ 20 
4290:F3 @A 85 
4298:85 E3 2@ 
AZAU:ES 65 ES 

73 
A2BQ:E2 &D 96 
A2B8:A4 E2 AS 
42C8:26 E1 26 
42C8:26 E2 65 


SFXEE> 
4E<CS> 
SA<ZB> 
Aa<37> 
CasDB> 
AD<83> 
2127C> 
52<46> 
S2<C2> 
5x21> 
44<12> 
SEXAE> 
ABC» 
AR<1D> 
AC<cE> 
SS<6C> 


= 2B0C> 


AS<F&> 
sE<SE> 
aa<1B> 
SF<ES> 
BE<64> 
42<57> 
AF<17> 
12<A4> 
84<DD> 
BE<AR> 
IEXAR> 
AIZ1> 
FD<S8> 
AC<99> 
\2<B9> 
10<69> 
DA<FB> 
FZ<1B> 
2U<@1> 
ARCSS> 
28<07> 
ZF<FD> 
@B<AD> 
DIEn> 
ARC92> 
ZOCAE> 
F2<46> 
B@2<F1> 
BR66> 
CKFO> 
E2<BO> 
8528> 
CA<BD> 
13CSCH 
1C<C7> 
EC<7D> 
SSCBC> 
DE<FE> 
AC<13> 
BO<93> 
EI<OS> 
BO<3D> 
BS<DC> 
E6<SE> 
E2<DE> 
E@<DD> 
EI<Ar> 
65<88> 


SIRHRTARSEESEBTTESSIIZERSBREESFASBTAERR 


3 


STHBSIRSESSSEAHSSETEUTNIESE 
3 


AFARBEASSSA 


E2<aR> 
ER<17> 
E2<21> 
85<4D> 
E1<72> 
ExX2Z1> 
A6L99> 
34<26> 
D7<A2> 
DC<77> 
Da<aQ> 
ZACAA> 
AS<I1> 
8A<0B> 
B5<01> 
B1<A2> 
CRE6> 
20<82> 
EBCFS> 
BO<O3> 
ASSES> 
E6<ER> 
AS<SB) 
AC<DS> 
an<7a> 
SD<D2> 
SREI> 
18<DE> 
QR<BS> 
ZUIZF> 
@S<aB> 
BR<BE> 
00<79> 
60139> 
85<D9> 
26<C5> 
BA<CA> 
8x01> 
BC<CR> 
BD<AD> 
aRca2> 
DE<B1> 
DE<F9> 
SI<AC> 
B<21> 
ac<sa> 
66<42> 
BE<F@> 
E2<79> 
n<41> 
B4<A7> 
Ca<s3> 
CEO» 
Ba<ge> 
I9D7> 
Da<13> 
aC<777 
FO<71> 
91<27> 
85<D4> 
EB<EC> 
90473> 
ES<77> 
ED<71> 
4LK33> 


4548:2@ EC FE 
4550:80 20 20 


4618:8D FE 82 
4620:09 26 FO 


4658:2@ 82 FA 
4560:20 IE FA 
4668:84 AL 20 
4670:68 AS 11 


€ 
& 
12 
98 
ac 


6A 


E6 
FS 


Laenge 18104 Bytes 


FF<SFI> 
B&<36> 
0B<67> 
Bacaz> 
M&C29> 
BB<EA> 
FF<EE> 
AB<AD> 
F1<L@9> 
Z3<B6> 
21<46> 
BI<SS> 
BI<A9> 
FRSFA> 
EOX26> 
FE<DF> 
ED<FF> 
AQ<C7> 
20<E3> 
87<F2> 
FF<7a> 
38<8C> 
@2<AE> 
ASSSC> 
A2<a0> 
ASC9B> 
E6<a6> 
ExDA> 
SBECcr> 

:5<89> 
ED<CE> 
BR<ER> 
BBC9B> 
Ca<Es> 
ca<Da> 
cB<aD> 
AI<DE> 
DF<D6> 
20<38> 
SSCEE> 
BA<29> 
76<58> 
@2<cD> 
FF<@&> 
96<65> 
BISEBD> 
96<ac> 
FF<DC> 
FEXAF> 
AB<D7> 
SEC2F> 
BI<IF> 
1D<34> 
C8<42> 
AS<BE> 
a0<14> 
B1<22> 
BA<2D> 
BA<BO> 
E6<Q5> 


Listing »Turbo-Basic-XL« (Schluß) 


ICH HALTE 
NORS NICHT 


so BIN 
ust 


ES IST ALLES KLAR. WIR 
HABEN WIEDER... 


ASS - klein, aber fein 


Erst durch einen Assembler kommt man mit dem 
Atari so richtig auf seine Kosten. Wir stellen 
einen Assembler vor, der zum ersten Rein- 
schnuppern wie geschaffen ist. 


m einen Computer voll ausnutzen zu können, läßt 

es sich nicht umgehen, ihn in Maschinensprache 

zu programmieren. Der Atari-Computer macht hier 
keine Ausnahme, denn solche Leckerbissen wie Display- 
List-Interrupts oder Player-Missile-Grafik lassen sich kaum 
in Basic schreiben. Da es recht schwer ist, in Maschinen- 
sprache zu programmieren, benötigt man für das Vorhaben 
ein Programm, das die unverständlichen Zahlencodes des 
Mikroprozessors in eine lesbare Form bringt: einen Assem- 
bler. 

Unser Assembler ist in Turbo-Basic geschrieben. Er eig- 
net sich hervorragend, um kleine Maschinenprogramme 
zu erzeugen. Zum Beispiel lassen sich damit die in dieser 
Ausgabe angesprochenen Programmierbeispiele sehr gut 
ausprobieren. Da es sich um einen Zeilenassembler han- 
delt, ist er für größere Programme weniger geeignet. »Zei- 
‚lenassembler« bedeutet, daß eine eingegebene Zeile 
sofort in den Maschinencode des 6502-Prozessors über- 
setzt wird. Zum Austesten kleiner Programme ist das ideal, 
da man sich so nicht mit allen möglichen Bedienungsbe- 
fehlen anderer Assembler herumschlagen muß. 


Der Assembler 
besteht aus drei Teilen 


Der »ASS-Assembler« besteht aus drei Teilprogrammen. 
Tippen Sie alle drei unter Turbo-Basic und mit Hilfe des 
Prüfsummen-Programms ab. Das erste Programm mit dem 
Namen »DATEI.SET« ist lediglich dazu da, eine Hilfsdatei 
auf der Diskette zu erzeugen. Wenn Sie das Programm lau- 
fenlassen, wird auf der Diskette das File»DLI.DAT« erzeugt, 
das vom Assembler benötigt wird. 

Das zweite File mit dem Namen »AUTORUN.BAS« wird 
von Turbo-Basic automatisch geladen und gestartet. Bei 
dem Programm handelt es sich um ein Vorprogramm, das 
verschiedene Speicherstellen im Computer setzt und 
anschließend das eigentliche Assembler-Programm lädt. 
Am besten verwenden Sie für das Programm eine eigene 
Diskette. Darauf kopieren Sie dann ein DOS, das Turbo- 
Basic, das »AUTORUN.BAS«-File, das »DLI.DAT«-File, das 
von dem »DATEI.SET«-Programm erzeugt wurde, und den 
Assembler. Wenn Sie das Turbo-Basic in »AUTORUN.SYS« 
umbenennen, lädt der Computer beim Einschalten den 


Sa Sr Assembler Syntax und 
$5603 STA $02C8 engeren 
Ze DE DEE LDA #845 > Immediate 
35609 CHP #307 LDX $5600 - Absolut 
35608 BEQ 85600 ES 
$560D IDA #$00 IA S0200,X - Absolut, 
LDA $0200Y - AbsolutY 
$560F STA $02C8 ee en 
$5612 IDA #$FF LDASIOY - Zeronagen 
$5614 STA $02FC En ) - am Ba 
35617 PLA = Jump indire« 
RORA — Accu 
wer EE BNE$S600 - Branch 


Das Programm wird mit der 
<START >-Faste beendet 


Tabelle 1 (oben), 
Tabelle 2 (rechts) 


cc) 1986 Artware 
& Peer Johannsen 


Kleine Programme sind mit »ASS« kein Problem 


Assembler automatisch. Unter Happy-DOS müssen Sie 
den Befehl »JOB TURBO.COM« benutzen, damit Turbo- 
Basic und damit auch der Assembler automatisch geladen 
und gestartet werden. 

Wenn der ASS-Assembler geladen ist, sehen Sie einen 
viergeteilten Bildschirm. Der oberste braune Teil enthält 
lediglich den Programmnamen. Darunter befindet sich 
eine blaue Zeile, in der die einzelnen Befehle eingegeben 
werden. In der folgenden, grau dargestellten Zeile stehen 
eventuell auftretende Fehlermeldungen des Assemblers. 
Im unteren grünen Teil wird schließlich ein eingegebenes 
Programm gelistet. Zusätzlich dient esals Sichtfeld für den 
eingebauten Monitor. 

Der Assembler kennt sämtliche 6502-Befehle. Zur Ver- 
deutlichung zeigt Tabelle 1 die Schreibweisen aller Adres- 


Assemblerbefehle 
PON — Alle Befehle werden zusätzlich auf dem Drucker 
ausgegeben 
POF — Drucker wird ausgeschaltet 
ORG $5800 - Programmzeiger setzen 
COD 00101101 - Bitmuster in die Speicherstelle des momentanen 
Programmzeigers schreiben 
DAT $SFF$12, - Hexadezimalzahlen in die Speicherstellen des 
SALS2B momentanen Programmzeigers schreiben 
ASC Dies ist ‚- ASCII in die Speicherstellen des momentanen 
ein Text Programmzeigers schreiben 
CHA $0600 — Zeigt die entsprechende Dezimalzahl 
CHA 1536 — Zeigt die entsprechende Hexadezimalzahl 


MOV $1000,100 - Verschiebt einen beliebigen Block (in diesem Bei- 
‚spiel von $1000 ab 100 Byte zur Stelle hin, auf 


die der Programmzeiger zeigt) 

MON — Aufruf des Monitors. 

DIR — Zeigt Directory von Laufwerk 1 

DOS - Geht ins DOS 

END \ — Beendet das Programm und geht zurück ins. 
Basic 

NEW - Startet den Assembler neu und beginnt wieder 
bei Adresse $5600 

FIL2 - Schreibt in Speicherstellen hinter dern 
Programmzeiger zweimal den Wert des 
Programmzählers 

PUT D: - Speichert einen Speicherinhalt und zwar 100 

PRG.DAT,100 Byte vom Beginn des Programmzeigers ab unter 
‚dem Namen PRG.DAT auf Diskette 

GETD: — Lädt den Programmblock PRG:DAT von Diskette. 

PRG.DAT ‚Anfangs- und Endadresse werden dem Block ent- 
nommen 


83 


sierungsarten des Mikroprozessors. Ein Dollar-Zeichen vor 
einer Zahl gibt dabei an, daß es sich um eine Hexadezimal- 
zahl handelt. Bei den Adressierungsarten »Immediate«, 
»Absolut«, bei den direkten Sprungbefehlen sowie bei den 
»Branch«-Anweisungen läßt der Assembler anstelle von 
Hexadezimalzahlen auch dezimale Zahlen zu. 
Kommentare lassen sich ebenfalls in ein Programm ein- 
fügen. Dies geschieht, indem man einem Text ein Semiko- 
lon voranstellt. Sinnvoll ist dies allerdings nur, wenn man 
mit dem Befehl »PON« einen angeschlossenen Drucker 
aktiviert. Dann werden alle eingegebenen Befehle und 
Kommentare gleichzeitig auf dem Drucker ausgegeben. 


Ab $5600 ist alles frei 


Neben diesem Befehl hat der ASS-Assembler noch wei- 
tere Befehle eingebaut. In Tabelle 2 sind sämtliche Kom- 
mandos zusammengestellt. 

Wenn Sie mit dem Assembler programmieren wollen, 
sollten Sie zwei Dinge beachten. Zum einen dürfen Sie 
nicht die Seite 6 im Computerspeicher verwenden, also 
den Speicherbereich zwischen $600 und $6FF. Hier liegen 
einige Maschinensprache-Routinen des Assemblers. 
Wenn Sie dort etwas hineinschreiben, hängt sich das Pro- 
gramm unweigerlich auf. Sie sollten auch darauf verzich- 
ten, den Programmzähler niedriger als Speicherstelle 
$5600 zu setzen, da in diesem Bereich der Assembler 
steht. Zum anderen kehrteinvon Ihnen geschriebenes Pro- 
gramm nur dann wieder zum Assembler zurück, wenn es 
mit dem Maschinensprache-Befehl »RTS« beendet wurde. 
Nebenbei sollten Sie immer mal wieder Ihr Programm mit 
dem Befehl »PUT« auf Diskette speichern. Es gibt schließ- 
lich nichts Unangenehmeres, als durch eine kleine Störung 
im Stromnetz ein schweißgeborenes Programm zu verlie- 
ren. 

Zum Ausprobieren des Assemblers haben wir ein kleines 
Programm abgedruckt. Was das Programm macht, wird 
nicht verraten. Viel Spaß beim Assemblern! 


(Peer Johannsen/hf) 
Steckbrief | 
Programm: ASS-Zeilenassembler 
Sprache: Turbo-Basic 
Eingabehilfe: Prüfsummer 
Datenträger: Diskette =] 


,6,72,158,72,166,205,142,18, 


212,189, 97, 6,141,24,208, 169, 15, 253 <xa> 
2 DATA.97,8,41,15,141,25,208,232,173,11, 
212,201,188,208,2,162,0,134,205,104 <PD> 
3 DATA.170,194,64,173,48,2,133,283,173,4 
9,2,133,204,160,6,169,130,145,203 <Pa> 
4 DATA-20Q,192,28,288,247,168,2,169,240, 
145,283,160,3,169,194,145,205,169 <LCc> 
5 DATAS,141,0,2,169,6,141,1,2,169,192,1 
41,14,212,169,0,133,205,184,96,16 <PH> 
6 DATA416,16,16,16,16,128,128,128,4,4,4, 
194,194,194,194,194,194,194,194,194 San? 
7 DATA=194,194,194 <FO> 
8 OPEN #%1,8,%0,"D:DLI.DAT" <PY> 
9 FOR I=%1 TO 121:READ X: Z=Z+X:PUT #41,X 
:NEXT I:CLOSE #%1 66> 
1@ IF Z<>14355 THEN ? "DATA-ERROR-!T":E 
ND <DA> 
11 ? "OKS-JALLES.KLAR" <UN> 


Listing. »DATEI.SET« erzeugt das File »DL1.DAT« 


5 REM ###.ASS.-_Zeilenassembler .x#* 
1@ GRAPHICS @:POKE 752,1:POKE 710,128:P0 
KE 712,128: POSITION 2,7 

15 ? "SLETL OIECTL RILCTL RICCTL EIICTL 

BILCTL RILCTL RITETL EITCTL QILETL RITCT 
L RILCTL EI2unn. Zeilen-Assembler" 

28 ? "-ISHIFT =ICCTL OICCTL EICSHIFT =>C 
SHIFT =IXCTL @PCTL RILCTL CHtSHIFT =I{C 
TL OILETL RIECTL C3" 

25 ? "LISHIFT =IXCTL ZILCTL CICSHIFT =IC 
SHIFT =}{CTL ZIXCTL RICCTL EIXSHIFT =}C 
TL_ZIECTL RILCTL EIACCTL SICCTL RITCTL R 
ILCTL E30) 1986-Artware" 

3@ ? "sÄSHIFT =ITCTL OILCTL EITSHIFT =3C 
ETL ZYECTL RILCTL EICSHIFT =ICCTL ZICCTL 
RILCTL EILSHIFT =FAICTL ZILCTL RIXCTLR 
3LCTL C3" 

35 7 ".ISHIFT =I{SHIFT =I{SHIFT =) {SHIFT 
=>{CTL BILCTL RICCTL CILSHIFT =ICCTL 03 
<CTL RICCTL CICSHIFT =Jau a ı& Peer Joha 
nnsen" 

48 ? "SCCTL ZILETL CHLCTL ZIECTL CHLCTL 

ZILCTL RILCTL RILCTL EIECTL ZILCTL RILCT 
LRILETL C3"* 

45 OPEN #1,4,8," 
121:CL0OSE #1:RUN 


DLI.DAT":BGET #1,1536, 
"D: ASS. PRG" 


Listing. »AUTORUN.BAS« erzeugt ein Ladebild 
und startet den Assembler 


<au> 


<BL> 


<ro> 


<BK> 


<VF> 


<HA> 


<aNn> 


2 REM *#4.ASS.— Zeilenassembler res 

5 DIM 6$(22) ‚As(72) „B$ (12) „C# (22) ‚DE (72) 
„HE(S) „PS (X2) „RS(S) 

18 — 

15 % START:GRAPHICS %B:POKE 752,41:X=USR 
(1536) : 2=22016 

2@ ? ".CCTL Q@ILETL RILCTL RICCTL EICETL 

@ILCTL RILETL RILCTL EI{CTL OPLCTL RILCT 
L RICCTL EranaausZeilen-Assembler" 

25 ? ".{SHIFT =JCTL QICCTL EICSHIFT =)t 
SHIFT =I{ETL QILCTL RILCTL CHSSHIFT =ICC 
TL QLCTL RILCTL 03" 

3@ ? ".ISHIFT =ICCTL ZILCTL CICSHIFT =I7 
SHIFT =}XETL ZILCTL RICCTL EITSHIFT =>3CC 
TL ZILCTL RILCTL EIACCTL OILETL RILCTL R 
IXCTL E24 (CI 21986Artware” 

35 ? "AtSHIFT =ILOTL OILCTL EICSHIFT =>t 
ETL ZILCTL RICCTL EICSHIFT =ICCTL ZICCTL 
RIECTL EICSHIFT =IACETL ZILCTL RIECTLR 
ILCTL C}* 

48 ? "ISHIFT =3{SHIFT =J{SHIFT =3SHIFT 
=ILCTL OILCTL RICCTL CHCSHIFT =ICCTL 03 
tCTL RILCTL CICSHIFT =}.auan Peer „Joha 
nnsen" 

45 ? "ICTL ZIECTL CHLETL ZICCTL CICCTL 
ZILETL RILCTL RILETL CHLCTL ZILCTL RICCT 
L RICETL O3" 

En 

55 # MAIN:POSITION 42, 
EC INPUT=POSITION 7,10:7 "anaaaaaasan nn. 
&B IE GE (Hi Milmtanna ER THE 
N 60# PRINT 

65 H$=6$ (41,43) zAs="an"BE=AS:CH=AF 
7o-- 

75 IF H$="PON* 
? "Drucker .an" 
SQ IF HS="POF" 
? "Drucker sau 
85 IF HS="ORG" 
98 IF H$="COD" 
95 IF HS="DAT" 


7 "S";HEXSIZI:EX 


THEN PR=%1:POSITION 7,108: 
60# MAIN 

THEN PR=48:POSITION 7,18: 
G0# MAIN 

THEN GO# DRG 

THEN GO# COD 

THEN 60# DAT 

THEN 60# CHA 

THEN GO# ASC 

THEN GD# MOV 

THEN 60# RUN 

THEN G0# MON 


IF HE="MON" 


<OP> 
<BB> 


<YH> 


<YX> 


<AH> 


<HV> 


<rF> 


<BU> 
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FIL <cv> 
GET <KO> 
PUT <HX> 
1490 IF H$="NEW" THEN 60# START <Cc2> 
145 IF 60# DIR <IT> 
150 IF Dos <EL> 
155 IF TRAP %1:GRAPHICS 20 
sEND <90> 
160 — x90> 
165 TRAP 570: A$=G$ (5,5) :B$=6$ (6,6) :05=6$ 
(8,8) :D$=6$ (11,11) <BS> 
17@ IF A$="ı" OR A$="A" THEN Ps="IP":C= 
[ <KI> 
175 IF Ag="#" AND B$="$" THEN P$="IM":C= 
%2 <uv> 
188 IF As="#" AND Bs>="Q" AND B$<="9" TH 
EN Ps="IM":C=7 <Lf> 
185 IF As="(" AND B$="$" AND D$="Y" THEN 
PS="IY":C=%2 <A6> 
198 IF A$>="B" AND Asc="9" THEN P$="AB": 
C=s 
195 IF A$="(" AND B$="$" AND G$(102,1® 
x" THEN P$="IX":C=72 
208 IF As="s" AND 6$(10,1D)= 


"AB":C=71 


205 IF As="s" AND C$="" THEN Ps="zpr 
Ex3 
212 IF As="s" “ AND B5(9,9)="x" 


THEN Ps="ZxX" <ro> 
215 IF As="s" AND C$= AND 65(9,N="y" 
THEN P$="ZY":0=%3 <ca> 
220 IF A$="$" AND D$= THEN Ps="AX":C= 
E21 <SR> 
225 IF A$="$" AND D$= THEN P$="AY":C= - 
E21 <UN> 
230 IF As="(" AND D$=")" AND G$(10,1@<> 
mr“ IN“: <HR> 
235 IF H$(21,21) HS<>"BIT" AND H 
SCI"BRK" THEN PF="uR":C=4 <20> 
240 — <uL> 
245 RESTORE :H$(A4)=P$: I=-A1:REPEAT <EV> 
250 READ R$:I=I+%41:IF 1=256 THEN 570 <1I> 
255 UNTIL RS=H$:AS=HEXF CI) BES" At CH=BE <YD> 
240 — <JP> 
265 POKE Z,I:IF C=/Q THEN X=2:2=27+41:50# 
PRINT <XH> 
27@ ON C 50# AB,IM,ZP,RR,IN,DE,ZE <HQ> 
275 60# MAIN SEX> 
280 — <IT> 
285 # RUN:IF G$(5,5)<> THEN 570 <BT> 
298 X=USR (DEC(GS(6,9)):60# MAIN <HX> 
295 — <KK> 
308 # ASC:X=Z:FOR I=22 TO %1 STEP -Z1:IF 
G$(1,I)<>".° THEN FOP :60T0 318 <LI> 
385 NEXT I <61> 
31® FOR C=5 TO I:POKE Z,ASC(GS(C,C)):Z=Z 
+%1:NEXT C:60# PRINT <vz> 
315 — <av> 
328 # COD:X=4®:FOR I=5 TO 12:1F G$(1,D)= 
"1" THEN X=X+42* (7-(1-5)) <PV> 
325 NEXT I:POKE Z,X:X=2:27=2+41:60% PRINT <HO> 
330 — <IK> 
335 # DAT:C=ZB:FOR I=5 TO 17 STEP 4: IF 6 
" THEN POKE Z+C,DEC(G$ (I+A1, 14% 
2C=C+%1 <NL> 
34@ NEXT I:X=Z:7=Z+C:60# PRINT <zT> 
345 -- <KB> 
358 # MOV:IF G$(19,10)<>"," OR G5(5,59<> 
"$" THEN 578 <ar> 
355 IF GS(11,11)="$" THEN G$(11)=STR$(DE 
Tessc121)) <DS> 
362 I=DEC(G$(6,9)):X=VAL(GS(11)) <CL> 
365 IF I>=Z THEN MOVE 1,2,X <av> 
37® IF I<Z THEN -MOVE 1,2,X <EA> 
375 X=2:60# PRINT <oB> 
388 -—- <Ju> 
385 # AB:DPOKE Z+%1,DEC(G$ (6,79): B$=HEXS 
(PEEK (Z+%1) ) :C$=HEX$ (PEEK (Z+%2) ):X=2: 7=Z 
+73: 60% PRINT <HR> 


DEC (G$(6,7)):POKE Z+%1,%X:B$=H 
2: 2=2+%2:60# PRINT 


415 # RRIX=DEC (GE (6,9): X=Z-X 

420 IF ABS(X)>128 THEN FOSITION 7,18:? " 

Offset“>4128":GET X:60# MAIN 

425 IF X<%@ THEN X=ABS(X)-42:60T0 435 

438 X=255- (X+%1) 

435 POKE Z+%1,X: B$=HEX$ (X) : X=Z: Z=Z+%2 

440 -- 

445 # PRINT:POSITION %8,13:7 "tESC SHIFT 
DEL}":POSITION 40,22: IF G$(11,21)="; 

HEN ? G$:G0T0 455 

458 ? "S";HEXSCK) 
Banios 

455 IF PR=X8 THEN SO# MAIN 

468 TRAP 573: IF G$(41,21)= 

T 6$:60# MAIN 

465 LPRINT "S"5HEXSCKIS "An" ASS "an ;BE 
"3085 "22"56%:60# MAIN 

470 — 

475 # IN:DPOKE Z+%1,DEC(G$(7,18) 
SPEER (7+41) ) :C$=HEXS (PEEK (Z+%2) 
7+73:60# PRINT 

480 — 

485 DATA-BRKIP,ORAIX, , , „DRAZP,ASLZP, „PHP 
ıP 

498 DATA-ORAIM,ASLIP, , „ORAAB,ASLAB, „BPL. 
R,ORAIY,,, 

495 DATA-ORAZX,ASLZX , „ELCIP,ORAAY, ,,„„ORA 

AX,ASLAX, „JSRAB,ANDIX, ,„BITZP,ANDZP 

S@D DATA.ROLZP, ‚PLPIP ‚ANDIM,ROLIF,,BITAB 
„ANDAB,ROLAB, „BMIAR,ANDIY,,, 

505 DATAANDZX,ROLZX, „SECIP ANDAY, ,, „AND 

AX,ROLAX, „RTIIP,EORIX, ,,„„EORZP,LSRZP, 

S1® DATA-PHAIP EORIM,LSRIP, „JMPAB,EORAB, 

LSRAB, ‚BVCAR,EORIY, ,, „EORZX,LSRZX, 

515 DATA-CLIIP,EORAY, ,,„EORAX,LSRAX,,RTS 
IP,ADCIX, ,, „ADCZP,RORZP, „PLAIP,ADCIM 

528 DATA-RORIP, ‚IMPIN,ADCAB,RORAB, „BVS.R 
„ADCIY, ,,„ADCZX,RORZX, „SEIIP ,ADCAY 

525 DATA., ,„ADLAX,RORAX, „„STAIX,,„STYZP, 

STAZP,STXZP, ‚DEYIP,,TXAIP, ‚STYAB,STAAB 

53@ DATA4STXAB, „BECHR,STAIY, ,„STYZX,STAZ 
X,STXZY, „TAYIP,STAAY,TXSIP, „„STAAX,, 

535 DATA.LDYIM,LDAIX,LDXIM, „LDYZP,LDAZP, 

LDXZP, ‚TAYIP,LDAIM,TAXIP, „LDYAB,LDAAB 

542 DATA-LDXAB, „BCS“R,LDAIY, ,„LDYZX,LDAZ 

X,LDXZY, „CLVIP,LDAAY,TSXIP, „LDYAX 

S45 DATAALDAAX,LDXAY, „EPYIM,CMPIX, ,„CPYZ 

P,CMPZP,DECZP, ‚INYIP,CMPIM,DEXIP, ,‚CPYAB 

55@ DATA.CMPAB,DECAB, „BNEAR,CMPIY, ,,„,CMP 

ZX,DECZX, ‚CLDIP,CMPAY,,, „CMPAX,DECAX, 

555 DATAACPXIM,SBCIX, „ „CPXZP „SBCZP, INCZP 
„,„INXIP,SBCIM,NOPIP, ‚CPXAB,SBCAB, INCAB 

568 DATA. „BEQ.R,SBCIY, „„„SBCZX, INCZX, „SE 

DIP,SBCAY, „,„SBCAX,INCAX, ,, 


“ THEN LPRIN 


:B$=HEX 


578 POSITION 7,18:? "Syntaxs-“Error 
X:60# MAIN 

575 POSITION 7,18:? "Kein«Drucker. 

R=78:GET X:60# MAIN 

582 — 

585 # MON:C=Z:POSITION %8,13:? "{ESC SHI 
FT DEL}YTESC SHIFT DELY" 

592 FOR X=%8 TO 7:POSITION 78,22:7 "$";H 
EXS(C+X#8) 5 "n";:FOR I=%Q TO 7 

595 ? HEX$S(PEEKIC+HX#8+I)); ""3:NEXT Im 
:POSITION %8,13:? "{ESC SHIFT DELI":NEXT 
x 


Listing. »ASS.PRG« ist der eigentliche Assembler 
(wird auf der nächsten Seite fortgesetzt) 


<IH> 


<LR> 
<Ir> 


<02> 
<IH> 
<TH> 
<Ic> 
<FB> 
<FH> 
<SL> 
<IN> 
<vAa> 


<uS> 
<ax> 


<IZ> 
<2a> 
<IT> 
<AV> 
<uv> 
<HD> 
<EP> 
<DA> 
<0A> 
<PH> 
<BU> 
<10> 
<PP> 


<60> 


<RR> 


<06> 


<UR> 


<Aav> 


<yL> 


<CX> 


<VP> 
<KH> 


<TI> 


<TA> 
<IH> 


<RC> 
<06> 


<AR> 
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68® POSITION %8,13:? "{ESC SHIFT DELY": 
OSITION %8,22:? "Weiter mit SPACE. „azuru 
eckamit RETURN" 

605 DD :GET X:IF X<>32 AND X<>1S5 THEN L 
00P 

618 POP :POSITION 48,13:7 "{ESC SHIFT DE 
LI{ESC SHIFT DEL}Y":IF X=32 THEN C=C+64:6 


<Ka> 


<HK> 


oT0 598 <Pa> 
615 60# MAIN <EP> 
620 — <IL> 


625 # DE:DPOKE Z+%1,VAL(6$ (5) ) :BS=HEXS(P 
EEK (Z+21)) 2 C$=HEX$ (PEEK (Z+%2) ):X=2: 7=7+% 
S:60# PRINT 

859 — 

635 # ZE:POKE Z+%1,VAL(G$ (6) ) :B$=HEXS(PE 
EK(Z+%1))2X=Z: 7=2+%42: 60% PRINT 

a — <IPp> 
645 # CHA:IF 6$(5,5)<>"$" THEN G$(Z42)=HE 
X$ (VAL (6$(5))):6$(41,41)="$":60T0 655 
658 6$=STR$(DEC (GH) 2) 

655 POSITION 7,18:? “entspricht=“";6$:60 
#® MAIN 

5 — 

665 PROC INPUT:POSITION 7,737 "anuunasaı 
Aaaaaasssssss":POKE 752,%0: POSITION 5,7 
Eucerin 

678 TRAP 678:GET X:IF (X>2& AND x<32) OR 
X=127 THEN 678 

675 IF X=126 AND I=%® THEN 6708 

689 IF X=126 AND I=4 THEN IF G$(%1,%1)<> 
"7" THEN 6$(4,5)="au":1=1-42:? "{ESC DEL 


<Is> 
<IN> 


<HD> 
<AD> 
<an> 
<UuL> 
<IT> 
zru> 


zay> 
SHS> 


+{ESC DELY"5:GOTO 678 <IH> 
685 IF X=12& THEN 6$(1,D="":1=1-%1:? " 

tESC DEL>"5:60T0 678 <KR> 
&98 IF X=155 THEN 715 <or> 
695 I=I+41:6$ (I, II=CHREIX):? CHRECXI; <UK> 


7a IF I=%3 AND G$(%X1,%X1)<>"5" THEN ? ". 
"31=m4:6$(1,ID)="." <ND> 
705 IF I=22 THEN 715 <a0> 
7ı8 G0TO 678 <aL> 
715 IF LEN(6$)<>22 THEN G$(LEN (68) +%41,22 
mau aaa nun <HL> 
72@ POKE 752,%1:ENDPROC <FI> 
725 — <KB> 
730 # FIL:MOVE 2,2+%1,VAL(G$(S)):X=Z:7=7 
+VAL (G$ (5) )+%1:60# PRINT <MX> 
7355 — <KD> 
748 #% GET=TRAP 745:DPEN #%1,4,28,68 (5) :% 
GET #%1,X,I:BGET #%1,X,I:ZGET #%1,2:CL0S 
E #21:60%# MAIN <eY> 
745 CLOSE #%1:POSITION 7,10:? "I/Os-Err 
or":GET X:60%# MAIN <BJ> 
758. —— <Is> 
755 # PUT:X=INSTR(G$,",")zIF X=7@ THEN S 
7® <T8> 
768 TRAP 745: I=VAL (6$(X+X1)):DPEN #%1,8, 
%8,6%(5,X-41):%PUT #%1,2,I:BPUT #%1,2,I: 
%PUT #21,Z3CLOSE #21100% MAIN <BP> 
765 — <KI> 
77® # DIR:POSITION %9,13:? "<ESC SHIFT D 
EL}":TRAP 780:0PEN #21,6,%0,"D:#.%*" <6V> 


775 POSITION %48,13:? “{ESC SHIFT DELY":I 
NPUT #%1,6$:POSITION 49,22:? G$:PAUSE 10 


:60T0 775 <BY> 
789 CLOSE #%1:POSITION %0,13:? "(ESC SHI 

FT DEL}":POKE 764,255:60% MAIN <FD> 
785 — <KN> 
798 # ORG: IF G$(1B,1B)<>"." THEN 578 <uc> 
795 Z=DEC(6$(6,9)):60# MAIN SuT> 


Listing. »ASS.PRG« (Schluß) 


Disketten-Quartett 


Vier nützliche kleine Programme stellen wir 
Ihnen hier vor, mit denen Sie Files auf Diskette 
untersuchen, Disketten schnell formatieren und 
Ihr DOS an mehrere Laufwerke anpassen. Das 
vierte ist als Zusatz für unseren »CHAR-MAKER« 
gedacht, mit dem Sie dort erzeugte Zeichensätze 
laden. 


in Diskettenlaufwerk ist eine feine Sache. Gerade, 

wenn man vorher eine ganze Weile mit dem Kasset- 

tenlaufwerk der Atari XL/XE-Computer gearbeitet 
hat, wird man von der Geschwindigkeit, mit der Daten gela- 
den und gespeichert werden, berauscht sein. Nebenbei 
bietet die Diskettenstation noch einige andere Vorzüge. So 
braucht man sich überhaupt nicht um die Plazierung der 
Daten auf der Diskette zu kümmern. Zuverlässig sucht die 
Diskettenstation freien Speicherplatz auf der Diskette und 
findet genauso zuverlässig gespeicherte Daten oder Pro- 
gramme wieder. 

Bald hat man sich an das Laufwerk so gewöhnt, daß man 
sich gar nicht vorstellen kann, je ohne dieses ausgekom- 
men zu sein. So passen sich bald auch die geschriebenen 
Programme dem Betrieb mit der Diskettenstation an. Vier 
solcher Programme, die im Laufe der Zeit einfach dadurch 
entstanden sind, daß eine Diskettenstation im Computer- 
system zur Verfügung stand, wollen wir hier vorstellen. Alle 
Programme sind als Hexadezimal-Listings im AMPEL-For- 
mat abgedruckt und sollten mit diesem Eingabeprogramm 


abgetippt und unter dem im Listingkopf angegebenen 
Namen auf Diskette gespeichert werden. 


ADBR zeigt den Speicherplatz 


Das erste Programm ist dazu ausgelegt, die Speicher- 
platzbelegung eines Programms anzuzeigen. Im Gegen- 
satz zu anderen Computern wird beim Atari ein 
Maschinensprache-Programm in mehrere kleine Pro- 
gramme aufgespaltet. Teile, die bei verschiedenen Pro- 
grammen häufiger gebraucht werden, lassen sich so auf 
einfache Weise zu einem Programm dazukopieren. 

Speichert man unter DOS 2.0 oder DOS 2.5 ein File mit 
der Funktion <K>, »Save File«, beziehungsweise unter 
OSS CP/A 1.2, 2.1, DOS XL oder Happy-DOS, mit »SAVE 
Filename Startadresse Endadresse« so wird am Anfang 
des Files die Start- und Endadresse des Files gespeichert. 
Das File sieht dann folgendermaßen aus: Die ersten beiden 
Byte haben den Wert 255 ($FF). Dadurch erkennt das DOS, 
daß es sich hier um ein File handelt, das mit dem »SAVE«- 
Kommando vom DOS aus gespeichert wurde und das sich 
mit dem »LOAD«-Befehl wieder laden läßt. Versucht man, 
ein File vom DOS aus zu laden, das diese Kennung nicht 
besitzt, beispielsweise ein Basic-Programm, so meldet das 
DOS nur »Bad Load File«. Ist die Kennung aber vorhanden, 
so weiß das DOS, daß die nächsten beiden Byte die Start- 
adresse und die darauffolgenden Byte die Endadresse des 
Files darstellen. Die Bytes, die dann folgen, bestehen aus 


86 


den Daten des Files. Entweder ist das File dann zu Ende, 
oder es folgen wieder Start- und Endadresse, gefolgt von 
Datenbytes. 

Diese Folge von Ladeadressen läßt sich mit dem ersten 
Programm »ADDR« auflisten. Sehr nützlich ist diese Funk- 
tion bei der Fehlersuche in eigenen Programmen, oder ein- 
fach nur, um in fremden Programmen herumzuschnüffeln. 
Wenden Sie das Programm doch einmal spaßeshalber auf 
den Turbo-Basic-Interpreter an. Sie werden staunen, aus 
wie vielen Teilen der Interpreter besteht. 

Dabei werden Sie aber gleich noch etwas Bemerkens- 
wertes feststellen. Beim Untersuchen von Turbo-Basic wer- 
den Sie zweimal auf die Zeile: »INIT AT ...«stoßen. Was hat 
das zu bedeuten? 

Nun, in dem File lassen sich nicht nur die Start- und 
Endadresse eines Files festlegen. Gleichzeitig ist darin 
auch die Startadresse des Files gespeichert, wobei es sich 
dann um ein vom Mikroprozessor des Computers direkt 
ausführbares Maschinenprogramm handeln muß. Bei allen 
DOS-2-kompatiblen Operationssystemen, wie DOS 25, 
OSS CPIA 1.2, 2.1, DOS XL und Happy-DOS, gibt es zwei 
Arten von Startadressen. Die eine Adresse wird in den 
Bytes 738 und 739 gespeichert ($2E2 und $2E3) und bildet 
die Adresse, an der das File nach dem kompletten Laden 
gestartet wird. Die Startadresse des Programms legt man 
fest, indem man im File einfach eine Ladeadresse in diesen 
Speicherbereich angibt, gefolgt von zwei Byte, die die 
Startadresse des Programms enthalten. 

Ein Programm soll zum Beispiel an der Adresse 8192 
($2000) gestartet werden. Also folgen im File vier Byte mit 
der Ladeadresse in die Speicherstellen 738 und 739: 226, 
2, 227, 2 ($E2, $2, $E3, $2), in der Reihenfolge Low-Byte, 
High-Byte. Anschließend folgen zwei Byte, die in diesen 
Speicherbereich geschrieben werden und gleichzeitig die 
Startadresse des File bilden: 0, 32 ($0, $20). Wenn das File 
fertig geladen ist, springt das DOS automatisch zu dieser 
Adresse, und das Programm wird gestartet. Fehlt diese 
Ladeanweisung im File, werden die Daten des Files nur 
geladen. 

DOS 2.0 und DOS 25 unterscheiden sich hier von den 
anderen DOS-Versionen. Unter CP/A 1.2, 2.1, DOSXL und 
Happy-DOS wird die Startadresse eines Files gleichge- 
setzt mit der ersten Ladeadresse des Files, solange keine 
andere Ladeadresse wie oben geschildert angegeben 
wird. Alle Files, bei denen unter diesen DOS-Versionen ein- 
fach nur der Name eingegeben wird und deren Extension 
»COM« lautet, werden automatisch gestartet (CP/M und 
MS-DOS lassen grüßen). Um den automatischen Start zu 
verhindern, gibt es bei diesen DOS-Versionen den»LOAD«- 
Befehl, über den einfach nur ein File in den Computerspei- 
cher geladen, aber nicht gestartet wird. 

Neben dieser normalen Startadresse gibt es noch eine 
weitere, die die normale Ladeprozedur des DOS beim 
»Binary Load«-Befehl unterbricht und kurzzeitig ein Pro- 
gramm ausführt, bevor das File weiter geladen wird. Diese 
Adresse wird in den Speicherstellen 736 und 737 zwischen- 
gespeichert ($2EO und $2E2). Wird eine Adresse wie oben 
angegeben vom File in diese Speicherstellen geladen, so 
springt das DOS anschließend zu dieser Adresse und 
unterbricht damit kurzzeitig den Ladeprozeß,. Erst wenn der 
Mikroprozessor in dem Programm auf den Befehl »RTS«, 
»Return from Subroutine«, stößt, wird der Ladeprozeß des 
Files vom DOS fortgeführt. 

Bestes Beispiel für die Anwendung von Init-Adressen ist 
das Turbo-Basic. Dieses lädt in den Speicherbereich ab 
$5E00 die Grafik für das Happy-Computer-Zeichen und 
springt dann über eine Init-Adresse kurz zu einem Pro- 
gramm an Speicherstelle $2100, das das Ladebild erzeugt. 
Erst dann wird der Turbo-Basic-Interpreter fertig geladen. 


Mit dem Programm ADDR lassen sich nun die Lade-, 
Start- und Init-Adressen von Files aufeinfache Weise anzei- 
gen. Nebenbei bemerkt, war das Programm eine große 
Hilfe, um das Turbo-Basic an den Kassettenrecorder- 
Betrieb anzupassen. 


Falls Sie mehr 
als ein Laufwerk besitzen 


Das zweite Programm ist dazu geschrieben worden, Ihr 
DOS mit mehreren Laufwerken zusammen arbeiten zu las- 
sen. Um Daten vom und zum Laufwerk zu schicken, muß 
das DOS die Daten erst in einem Speicherbereich zwi- 
schenlagern. Immer wenn genug Daten zusammengekom- 
men sind, werden diese auf die Diskette geschrieben oder 
von dieser heruntergeholt. Damit die Daten bei verschiede- 
nen Laufwerken nicht durcheinanderkommen, hat jedes 
Laufwerk seinen eigenen vom DOS verwalteten Zwischen- 
speicher. Das gleiche gilt auch für die geöffneten Files. 
Jedem File wird Speicherplatz zugewiesen. Da an den 
‚Atari-Computer bis zu acht Laufwerke angeschlossen wer- 
den können, und da maximal acht Files gleichzeitig geöff- 
net werden können, würde immer ein riesengroßer Spei- 
cherplatz für die Laufwerke reserviert und vom übrigen 
Speicher getrennt werden. Da so mancher Atari-Besitzer 
froh ist, überhaupt ein Laufwerk zu besitzen, wäre dieser 
Speicherplatz in fast allen Fällen verschwendet. Aus die- 
sem Grund läßt sich dem DOS die Anzahl der Laufwerke 
sowie die der maximal gleichzeitig geöffneten Files mit- 
teilen. 

Normalerweise geschieht dies vom Basic aus, mit 

umständlichen »POKE«-Befehlen. Viel zu schnell geht da 
mal ein POKE daneben und verdirbt dadurch das DOS. 
Wenn dies nicht bemerkt wird, ist beim nächsten Schreib- 
oder Lesebefehl eine Diskette hinüber. 
„ Diese ganzen Nachteile umgeht der »DOS-Customizer«. 
Über eine Menüsteuerung lassen sich bequem die zur Ver- 
fügung stehenden Laufwerke sowie die maximal geöffne- 
ten Files einstellen. Hat man die Einstellungen vorgenom- 
men, sollte man als nächstes diese angepaßte DOS- 
Version auf die Diskette schreiben. Dadurch übernimmt 
das DOS die Einstellungen beim nächsten Laden. Falls 
dann einmal ein zweites Laufwerk dazugekauft werden 
soll, läßt sich das DOS mit dem Customizer ohne Probleme 
wieder anpassen. 

Der DOS-Customizer funktioniert nur mit dem DOS 2.0, 
DOS 2.5 und CP/A 1.2, 2.1 sowie DOS XL. Er sollte auf kei- 
nen Fall mit DOS 3 oder Happy-DOS verwendet werden. 


Ein Dutzend Disketten formatiert 


Haben Sie schon einmal mehrere Disketten hintereinan- 
der formatieren müssen, zum Beispiel nach einer schon 
lange fälligen Aufräumaktion in Ihrer Software-Sammlung? 
Womöglich hatten Sie sich ein neues Paket mit Disketten 
gekauft und wollten diese gleich mit formatieren. Wenn Sie 
dann vom DOS zum x-ten Mal nach dem Laufwerk, auf dem 
formatiert werden soll, gefragt wurden, und ob Sie sich 
auch ganz sicher sind, die Diskette ohne jeden Vorbehalt 
undohne Rücksicht auf Verluste formatieren zu wollen, und 
ob Sie nicht vielleicht doch eine falsche Diskette eingelegt 
haben, und ..., und ..., und ..., und ..., wenn Ihnen dann 
schon einmal der Kragen geplatzt ist und Sie die DOS- 
Diskette wutschnaubend in die Ecke gefeuert haben, ja 
dann kommt unser Programm »Formater« für Sie genau 
richtig. 
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Mit diesem Programm läßt sich mit nur einem Knopf- 
druck eine Diskette formatieren und auch gleich ein DOS 
schreiben. Falls sich auf der Diskette kein DOS befindet, 
meldet diese anstelle eines nervös piepsenden »BOOT 
ERROR« einfach »Kein Dos auf dieser Diskette«. Wenn das 
nicht komfortabel ist? 


Directory in Kyrillisch 


Das letzte Programm kann man mehr als eine nette Spie- 
lerei betrachten. Das Programm kopiert bei den XU/XE- 
Computern einen beliebigen von der Diskette ladbaren Zei- 


ten »CHAR-MAKER«, und verwendet diesen fortan zur Dar- 
stellung auf dem Bildschirm. Bis zum nächsten Druck auf 
die <RESET >-Taste haben Sie zum Beispiel Ihr Directory 
in kyrillischer Schrift oder Ihr Basic-Programm in Gotisch. 
So lassen sich auch ganz einfach die deutschen Umlaute 
sowie das »ß«, in eigene Programme einbinden, das im 
zweiten internationalen Zeichensatz des AtarisXU/XE nicht 
enthalten ist. 

An dieser Stelle wollen wir Sie auffordern, uns ähnlich 
kurze, sinnvolle oder auch weniger sinnvolle, dafür aber 
nette Programme zu schicken. Diese vier Programme sol- 
len als Anregung dienen. Gleichzeitig wünschen wir Ihnen 
mit unserem Programmquartett viel Spaß. 


chensatz, zum Beispieleinen des in diesem Heft vorgestell- (Andreas Sons/hf) 
Programmname :ADDR.COM 44 05 <4D> 0240:24 22 68 68 20 78 22 28 <Aa5> 
Länge :888 Bytes ar 8D <FS> 4C 21 28 29 564 EA <Sc> 
23 AF <64> 22 20 2E 22 48 20 <9c> 
28 S6 <FE> AB 68 AA EB FF DO <B5> 
FB 28 BA 86 <85> DO 37 <42> FF FO EE 60 A? AB <24> 
aA 835 A9 22 <D2> 8D 44 <79> @288:8D 44 85 A9 25 BD 45 83 <34> 
55 8D 48 85 <85> A? 89 <EB> 02290:A7 D1 8D 48 83 A9 BO 8D <27> 
83 A9 @B BD <80> 49 83 <77> 80298:49 83 A9 BB SD 42 835 AZ <FD> 
28 56 E4 A9 <1D> @0 28 <ED> 20 56 E4 60 AS 88 48 <9E> 
A? 22 8D 45 <A9> 65 22 <Es> 87 48 60 95 9B PB A1 <E1> 
48 03 a9 88 <7F> AS 80 <SD> 44 52 20 20 20 20 56 <4B> 
@B 8D 42 03 <22> ac 37 <SC> 32 2E 30 2@ 2F 28 32 <a@> 
E4 A2 980 AP <Cc9> 02 oo <4a0> 2D 41 55 47 2D 31 39 <B2> 
A9F AF BD 44 <82> A9 23 <B2> 35 9B 28 20 20 20 28 <&D> 
43 03 A9 OF <er> a0 83 <aB> 20 20 56 20 32 2E 31 <a9> 
28 8D 49 85 <71> @B 8D <F3> 2F 28 32 34 2D 4A 55 <17> 
B5 AC 4E 22 <47> E& AT <46> 2D 31 39 38 37 9B 9B <EF> 
9B DB 94 A& <99> 98 28 <6F> 52 49 54 54 45 4E 28 <8F> 
1@ A9 95 9D <74> 22 A9 <AE> 59 2D 41 4E 44 52 45 <SF> 
ID 44 83 A9 <a8> 8D 45 <EB> 53 2@ 53 4F 4E 53 9B <28> 
A9 84 9D an <12> A9 am <2F> 46 F4 22 SE 23 49 ac <5a> 
28 ZE 22 C9 <D5> 32 03 <7@> 4E 61 AD 45 20 IE 46 <SC> 
84 F@ SS L9 <FA> 65 22 <99> 52 4D 41 54 20 3A 28 <7F> 
24 22 A9 FD <3D> aa 22 <32> SF SF IB 46 4F 52 AD <47> 
22 8D 45 83 <38> ZE 22 <A9> 54 20 SA 2@ 42 41 53 <S2> 
05 A9 08 SD <FE> AS 81 <S8> 43 9B 46 AF 52 aD a1 <1A> 
8D 42 85 A2 <F1> 22 ac <as> 29 SA 20 44 4F 53 28 <C3> 
4C 21 28 28 <cc> Bi 85 <C8> 9B 46 4F 52 4D 41 54 <F9> 
D® DS 20 24 <D3> 81 69 <an> 3A 2@ 44 AF 535 20 352 £65> 
#4 83 A9 23 <BA> 85 87 <SF> 52 55 4E 28 41 54 2B <84> 
@F 8D 48 83 <BF> 20 BF <AB> 20 49 4E 49 54 29 41 <82> 
23 A9 OB ED <cı> BA 9 <39> 20 3N 20 2D 9B a4 31 <E6> 
20 56 E4 AC <aB> 3® AA <BB> 20 2m 20 20 28 28 28 <E2> 
22 C9 99 nB <se> E4 a8 <D2> 20 20 2® 20 20 20 2m <2c> 
#4 83 A9 25 <DB®> 9» 42 <77> 00 00 Du vo na na ma <FS> 
BF BD 49 83 <87> A? 87 <a7> 
2180:A9 BB FC 20 F7 21 @D 49 <F8> 44 05 <ıCc> 
92188:835 42 85 A2 00 <83> 48 85 <E4> vetiı 4 
2a 22 4C 21 <97> 56 E2 <au> Listing 1. »ADDR« zeigt 
C9 FF F@ 83 <3F> 62 20 <78> Speicherbelegung 
Programmname :DOSCUST.COM @D <53> 2F 2@ 32 31 2D 41 55 <59> 
Länge :512 Bytes 87 <aE> 2D 51 359 38 35 9B 57 <as> 
u a u E& <42> 49 54 54 45 4£ 28 42 <1E> 
89 <8C> 2@ 41 4E 44 52 45 41 <F2> 
@0 20 FB 20 BA SE <@D> 03 <48> 20 53 AF 4E 55 9B 9B <15> 
AZ SC AB 21 A9 43 <EE> 26 <IF> aD 41 58 49 AD 41 ac <AS> 
2@ A2 7F AM 21 A9 <aA> 835 <41> 4E 55 4D 42 45 52 2@ <7D> 
CC 20 20 E6 20 AD <sQ> 85 <F7> 46 20 4F 50 45 4E 20 <1C» 
Cc9 31 F@ 25 C9 52 <7F> 21 <8B> 49 AC 45 53 20 SA AD <ARA> 
c9 33 FO 18 09 34 <ES> aa <BE> 53 54 20 42 45 34 57 <D3> 
C9 35 F@ 13 C9 36 <Er> 25 <a4> 45 4E 20 31 20 #1 4E <a0> 
c9 37 F® BB C9 58 <EB> @3 <D7> 20 38 9B 4E SS AD 42 <31> 
AZ 9D AB 21 AC 17 <27> 42 <88> 52 20 4F 46 29 44 49 <65> 
Fa 21 AZ B2 AB 21 <82> 6B <9B> 4B 20 44 52 49 56 45 <F®> 
20 CC 28 20 E6 20 <98> AE <24> 20 5a an 55 53 54 2@ <oc> 
21 C9 31 F@ 13 C9 <25> se <11> AS 54 57 45 45 4E 28 <a) 
@F C9 33 FO BB 09 <1c> 21 <7a> 20 41 AE 44 20 34 98 <E6> 
87 A2 C9 AB 21 ac <94> 21 <aa> Q1E9:56 45 52 49 46 59 28 57 <F@> 
38 E9 31 AA BD 28 <sB> 52 <aon> B1FB:52 49 54 45 55 2m 28 59 <Bf> 
FS 21 A2 DE AB 2ı <41> B138:4F 47 52 41 4D 2@ 41 42 <B1> @1F8:2F 4E 29 20 SA 00 BO Bm <ca> 
20 CC 20 28 E& 20 <ca> B1AQ:AF 52 54 45 44 9B 44 AF <IF> 
21 C9 59 Fa 1m c9 <E9> <6r> Br 
BC C9 4E DR ES A9 <ec> <29> Listing 2. »DOSCUST« paßt 
79 87 AC 9E 20 AF <as> <Es> das DOS an 


Programmname DRMAT.COM 0140:9D 45 83 A? FF 9D 48 83 <DE> 2@ 74 6F 20 77 72 69 <E6> 
Länge Q148:A9 0@ 9D 49 @5 20 56 E4 <EE> 74 65 20 44 AF SS 9B 20 cas> 
AC 53 2@ 60 A2 <96> 20 20 2m 20 20 43 54 52 <D7> 
9D 42 83 A9 BE <EB> 4C 2D 49 20 74 6F 29 66 <&B> 
00 20 FB 20 a2 18 <sF> A9 23 9D a5 ms <95> 72 &D 61 74 29 61 6E <09> 
9D 42 05 29 56 E# <BC> AZ 20 A9 85 9D <AD> 64 20 77 72 69 74 65 28 <DA> 
A9 GC 9D 42 83 20 <73> BE 9D a4 05 A9 <6E> 44 AF 53 9B 20 20 20 20 <ac> 
AZ 18 A9 B5 9D 42 <B6> 85 A7 988 9D An <Ba> 20 20 43 54 52 4C 2D 45 <F5> 
8B 9D 44 83 A9 23 <A1> E4 18 24 AZ 00 <6B> 2@ 74 6F 20 65 72 61 73 <DC> 
23 A9 04 9D aA 03 <1B> 42 @3 A9 7@ 9D <B2> 65 20 44 4F 53 98 20 20 <F9> 
E4 A9 @1 SD FO 22 <aD> Q190:48 DS A9 25 9D 49 05 AI <65> 20 20 20 45 53 43 20 <BB> 
A9 OB 9D 42 03 A9 <87> GLIB:FF 9D 42 85 A7 @O 9D 49 <an> 20 20 74 6F 20 65 78 <14> 
44 05 A9 22 9D 45 <87> B1AB:BS 20 56 EA Ab BB 9A AC <EI> 74 F4 22 98 25 9B 9B <S9> 
CO 9D 48 05 A? 00 <ar> A9 BC 9D a2 <B9> 7E AC 65 61 76 69 6E <EC> 
03 20 56 E4 BA 86 <BF> A2 20 A9 25 <27> 20 78 72 &F 67 72 61 £49> 
Bm A7 OB 9D 42 05 <&B> SE 9D 44 03 <F2> IB 7E 7E 46 6F 72 6D <83> 
9D 44 03 A9 25 9D <acy 05 28 56 Ea <En> 74 74 69 6E 67 20 a4 <ue> 
A? 82 9D 48 835 A9 <ID> 24 9D 42 83 <@B> 73 &B 20 61 4E 64 28 <B2> 
49 03 20 56 E4 A2 <9> 835 A9 25 9D <ı8> 72 2a <As> 
07 9D a2 23 a9 ma <Ba> Es A2 20 A9 <16> ar 6F <31> 
03 9D 45 83 290 S6& <67> A9F BE 7D 44 <F1> 67 <71> 
AZ BO A9 99 9D 42 <EF> 45 83 28 56 <91> TE <@2> 
FF 9D 48 85 A9 80 <BF> @2 83 AF 94 <34> 2@ <54> 
85 68 C9 1B D® 13 <FD> 22 8D 85 85 <8D> 72 <C4> 
9D 44 @5 A9 22 9D <66> F3 22 8D BA <ör> ar <F2> 
20 56 E4 A9 08 8D <c8> QB 85 20 53 <BB> 20 <7A> 
6@ C9 89 DO 16 A9 <IE> @4 22 00 00 <D6> 66 <EI> 
44 85 A9 23 9D 45 <EE> 9D 42 03 A9 <BA> 6E <72> 
36 E4 20 12 21 20 <FE> A9 22 9D 45 <ED> 2@ <Fa> 
AC 53 28 C9 86 DB <56> 48 05 A9 00 <21> 77 <99> 
2A 9D 44 03 A9 25 <B7> 56 E4 4C 28 <30> 44 <D8> 
83 20 56 E4 28 12 <6f> 44 4F 53 ZE <FC> 9B <79> 
BF 21 4C 53 20 C9 <1C> 9B 9B 9B SE <D6> 53 <85> 
13 A9 3C 9D 44 03 <33> 27 53 20 36 <s9> 28 <36> 
9D 45 05 20 56 Es <ır> 54 SC 5C 9B <aB> 
21 AC 55 28 C9 825 <66> ZE 3@ 2@ 2F <D3> 
FC 28 F7 21 4C 71 <@2> an 55 AE 2D <69> 
AA 9D 44 03 A9 23 <F1> 28 62 79 20 <EB> 
83 20 56 E4 20 BF <De> 65 61 73 20 <87> 
53 20 A2 28 A9 FE <EE> FB IB 50 72 <86> 
85 A9 BE 9D 44 83 <An> 43 54 52 4C <7E> 
9D 45 03 20 56 EA <Ba> 6F 20 66 6F <2D> Bee 2 = 
A2 00 A? 29 9D 42 <3D> 9B 20 20 20 <sa> Listing 3. Mit »FORMAT« sind 
SB 9D 44 03 A9 23 <6D> 54 52 40 2D <9A> Disketten ruck zuck formatiert 
Programmname :XLCHAR.COM FO FB C9 DA <A8> Ba 9D 44 03 <78> 
Länge 1352 Bytes 68 A? FC 8D <DS> EB 9D 45 85 <Al> 
8D C& 82 A9 <F3> 53 21 9D 49 <F8> 
28 85 @D AC <AD> 2108:03 28 56 E4 A9 BC 9D 42 <BF> 
GBBU:FF FF 90 20 FE 20 a2 mm <ar> 85 BC A9 15 <CF> 0110:05 20 56 E4 5B 9B 9B 58 <7F> 
A2 8@ BE BE D2 <26> 87 AZ 09 A9 <O4> B118:4C 43 48 41 52 9B 56 45 <18> 
BE 90 D4 CA AD <cE> AP OB 9D 44 <Ac> 4E 20 51 ZE <B9> 
FE 8D @1 D3 48 <mB> 45 05 A9 46 <19> 20 20 32 38 <ar> 
AZ 09 BD 6F 20 <52> 20 9D 49 03 <aB> 2D 31 39 38 <Fe> 
CA 1@ F7 68 @D <c2> A9 @5 9D 42 03 <ar> 39 58 58 85 <34> 
79 20 86 C4 a2 <61> 44 03 9 21 9D <Ba> 20 a1 4E 44 <20> 
85 CO 85 C2 A9 <FB> BF 9D 498 05 A9 <B3> 20 SS 4F 4E <B8> 
a9 50 85 C3 AS <c3> 83 28 56 Ea aD <s8> 48 a1 52 533 <87> 
Ai C2 81 CB AC <F4> ®1 DS AZ ıB A9 <42> 31 3A 08 88 <as> 
cB 81 C2 Es CO <135> 23 A9 51 9D 44 <07> P ri er 
c® Da E7 E& Cı <an> 9D 45 83 A9 84 <16> Listing 4. Andere Zeichensätze 
Cı FO BE C9 D2 <eQ> 20 56 E4 A9 07 <80> mit »XCHAR« 
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Asteroiden-Action 


Was kann spannender sein als ein Spiel zu zweit? 
»Paver« verspricht nicht nur Spielspaß, sondern 
auch tolle Musik und butterweiches Scrolling auf 
einem geteilten Bildschirm. 


twa im Jahr 2700 entdeckte die Menschheit, daß 
kleine, wendige Gleiter und die Schwerelosigkeit 
ganz neue Spiele erlauben. 2978 kam ein begeister- 
ter Spieler auf eine völlig neue Idee: Zwei Spieler fernsteu- 
ern aus dem Orbit zwei Gleiter. Auf der Oberfläche eines 


Spannung auf geteiltem Bildschirm 


Asteroiden wird ein Spielfeld markiert, das aus lauter sym- 
metrischen Teilen besteht. Dann wird ein Großteil des Fel- 
des wieder mit Staub abgedeckt, nur am oberen und 
unteren Rand bleibt ein schmaler Streifen frei. Der Compu- 
ter gibt im Laufe des Spiels einen Teil des Musters an, und 
die Spieler müssen zu der Stelle fliegen, an die dieses 
Muster gehört. Hat man sie erreicht, befreit der Computer 


Damit das Spiel nicht an Spannung verliert, kann man 
sich auch gegenseitig abschießen. Das bringt zwar keine 
Punkte, dafür dem Mitspieler einen Zeitnachteil. Er beginnt 
nämlich wieder am linken Ende des Spielfelds, was beson- 
ders am Ende des Spiels, wenn nur noch wenige Stellen 
übrig sind, sehr ärgerlich ist. Sie müssen sich also auf 
mehrere Dinge gleichzeitig konzentrieren. 

Wenn Sie das Listing »Paver« mit AMPEL abgetippt 
haben, können Sie es über das DOS starten. Zum Spielen 
brauchen Sie unbedingt einen menschlichen Mitspieler 
und zwei Joysticks. Der Spieler mit dem Joystick in Port 2 
steuert den rosa Gleiter auf dem unteren Bildschirmaus- 
schnitt. Bei Paver spielen Sie nämlich auf einem geteilten 
Bildschirm, wie man ihn zum Beispiel von »Ballblazer« her 
kennt. Die Schirme können völlig unterschiedliche Aus- 
schnitte des großen Spielfelds zeigen. So sehen Sie nicht 
nur, was Ihr eigener Gleiter macht, sondern haben auch 
Ihren Gegner im Auge. Wenn Sie am hinteren Ende des 
Spielfelds angekommen sind, können Sie entweder umdre- 
hen oder geradeaus weiterfliegen. Nach einer Weile kom- 
men Sie dann wieder zum Anfang des Felds. 

Solangnoch die Titelmusik läuft, haben Sie die Wahl zwi- 
schen zwei Spielmodi: »GAP« und »NON-GAP«. Bei GAP 
ist das Spiel zu Ende, sobald einer der Spieler 1000 Punkte 
erreicht hat. Wenn Sie NON-GAP wählen, müssen Sie alle 
Felder wieder vom Staub befreien. Gewonnen hat dann der 
Spieler mit der höheren Punktzahl. Durch Drücken der 
<SELECT>-Taste können Sie vor jedem Spiel den Modus 
bestimmen. Um das Spiel zu beginnen, drücken Sie ein- 
fach die <START>-Taste. 

(Frank Wittenmayer/gn/hf) 


1 Steckbrief 5 


Paver 
Maschinensprache 


Programm: 
Sprache: 


sie automatisch vom Staub, der Spieler bekommt Punkte, | Eingabehilfe: AMPEL 
abhängig von der Anzahl der Nachbarplatten, und die Jagd Datenträger Kassette, Diskette 
auf das nächste Teil beginnt. ger: ® 
Programmname :PAVER.COM BEDB:4Q AZ a3 AS CS 58 E9 BI <AD> 21C2:20 88 E7 EI EB EDEF Fı <28> 
Länge 7568 Bytes 80D8:85 83 85 D5 B4 AB B9 15 <64> BICB:FS FS F7 F9 FA FB FC FD <BO> 
erg 3 BBEB:Sı 48 98 BA AB BF SB 31 <CA> BIDB:FE FF AB AB AB A& AS AS <CB> 
BBEB:85 80 B9 SC 51 85 81 BS <37> B1DB:A4 AA As As As As AS AS <DC> 
BORO:FF FF DO 22 AF 48 BO SB <92> GaF@:A4 9D 94 DO BS AB 85 82 <7A> B1EB:AS AS AS AZ 88 80 BB 83 <DE> 
B908:D@ 22 DD 22 AP SC 8D 92 <B4> BBF8:B5 AC 85 D2 AB 09 Bi D2 <88> BIEB:BS 87 89 8B SD BF 91 95 <87> 
@010:D3 18 60 A? DD 85 @2 85 <Fc> @100:3D ES 25 91 D2 BB 19 F& <aC> Q1FG:75 96 97 98 99 9A IB OD <B> 
0818:0C 85 BA AF 22 85 85 85 <ED> @108:68 AB Bi 88 11 82 91 82 <88> @1F8:00 85 85 BA DA Da D4 D4 <69> 
0020:0D 85 OB A7 B80 BD 44 82 <6E> 8110:88 10 F7 BS AB 95 AC CA,<37> 22080:84 035 85 85 82 82 u2 B1 <74> 
B020:A9 02 85 89 4C 4A 37 Bi <91> 8118:1® C2 40 FC FS CF SF a0 <F7> 8288:81 8C @C @C BF @D 84 95 <8B> 
8830:A5 CS 38 E9 B1 85 95 A9 <79> 8128:8A BA AA 68 95 CA 94 BO <58> 2210:8£ B& 85 25 94 94 83 83 <C2> 
2038:00 85 94 a2 84 AB FF 91 <13> 8129:94 Bi A? 00 975 CB 68 AF <B@D> 8218:22 82 21 91 88 DB B® 22 <CF> 
8048:94 88 D® FB E& 95 CA 18 <FE> 8139:00 8D @8 D2 A? BS ED BF <EE> @220:22 22 05 085 05 84 D4 94 <A) 
D@48:F& AD 2F 82 89 1C 8D ZF <B5> 8138:D2 A2 87 A9 BO 95 CA CA <A6> 2228:85 25 85 B1 B1 OF BD BB <09> 
2@50:02 A9 83 ED 1D DB A9 DL <SF> 2149: 10 FB 68 AS BC FO 83 AC <IF> 2252:09 87 85 @4 03 82 02 @1 <ao> 
GBSS:ED 6F @2 A9 SA ED 24 82 <97> @14B:FB 25 A2 B& BS Ch FO 35 <87> @238:21 02 22 22 om 2a Da 2@ <EC> 
BQ6B:A? 25 BD 27 @2 A9 98 BD <B1> B1SBrBA AB B9 65 24 85 C6 B9 <a8> 0248:20 30 DU 09 am Bu mu mm <a4> 
0048:19 82 A? Bi 8D 18 @2 60 <CB> 8138:66 24 85 C7 B9 77 24 85 <83> 2248:28 80 20 22 BB BB 28 wo <ac> 
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Die Herrsr-Höhle 


Steuern Sie einen wagemutigen Forscher durch 
ein höhlenartiges Labyrinth. Doch Vorsicht: Viele 
gemeine Fallen machen die Höhle zur Hölle. 
D noch mit Seilen herumgeklettert sind, sind schon 

lange vorbei. Statt dessen verwendet man heut- 
zutage Hubschrauber-Rucksäcke, mit denen die Forscher 
durch die Luft fliegen, statt umständlich zu klettern. Diese 
Technik macht das Erforschen von Höhlen zwar etwas 
schneller, aber nicht unbedingt leichter, besonderswennes 
einen in ein so gefährliches Höhlensystem verschlagen hat 
wie den Helden unseres Spieles. 

‚Auf den Heliman warten Energiesperren und fliegende 
Felsbrocken. Die Wände darf der Spieler ebenfalls nicht 
berühren. Die letzte große Schwierigkeit sind unterirdische 
Seen, die den fliegenden Forscher für immer auf den 
Grundzu ziehen drohen. Wie Siesehen, muß man aufaller- 
lei achten, um lebend zum Ausgang zu gelangen. 

Um Ihnen die Aufgabe etwas zu erleichtern, gibtesin den 
Höhlen kleine Fackeln, die Sie schadlos berühren dürfen. 
Die Fackeln haben sogar eine sehr positive Wirkung. Wenn 
Sie eines ihrer zehn Leben verlieren, beginnen Sie das 
Spiel wieder an der letzten Fackel. 

Die zweite Erleichterung ist der Turbospeed für den 
Rotor. Durch Drücken des Feuerknopfs verdoppelt sich die 


ie Zeiten, in denen Bergsteiger und Höhlenforscher 
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Fluggeschwindigkeit, doch leider auch der Treibstoffver- 
brauch. Und 1000 Liter sind sehr schnell weg. 

Um eine Pause einzulegen, brauchen Sie nur eine belie- 
bige Taste zu drücken. Das Spiel stoppt solange, bis Sie 
eine andere Taste drücken oder weiterfliegen. 

Gesteuert wird Heliman mit dem Joystick in Port 1. Wenn 
Sie das Ziel in der Höhle erreicht haben, bekommen Sie für 
den verbleibenden Treibstoff Punkte und der nächste 
Schwierigkeitsgrad wird von Diskette geladen. Ein neues 
Leben erhalten Sie für 10000 Punkte. 

Wenn Sie die die abgedruckten Level sicher beherr- 
schen oder wenn Ihnen diese zu schwer sind, können Sie 
den Editor benutzen, mit dem Sie eigene Schwierigkeits- 
stufen ganz nach Ihrem Wunsch entwerfen. Um den Editor 
zu starten, drücken Sie einfach die <SELECT >-Taste. Ein 
Zeichen wählen Sie aus, indem Sie mit dem.Pfeil zum 
gewünschten Symbol auf der Auswahlleiste am unteren 
Bildrand fahren und es dann mit dem Feuerknopf aktivie- 
ren. Das Zeichen setzen Sie dann wiederum durch Druck 
auf den Feuerknopf in das Spielfeld. Wenn Sie mit dem 
Pfeil an den oberen oder unteren Bildrand stoßen, scrollt 
das Bild automatisch in diese Richtung. 

Im Editor liegen einige Funktionen auch auf der Tastatur. 
Mit <L> laden Sie ein Bild undmit <$S> speichern Sie es. 
Unter welchem Namen es geladen oder gespeichert wird, 
bestimmt die Bildnummer. Um diese zu verändern, 
drücken Sie einfach <B>. Dadurch können Sie auch 
einen bestehen Level verändern und unter anderem 
Namen speichern. Die Bildnummer wird beim Editor in der 
oberen Zeile eingeblendet. Mit <RETURN> können Sie 
zu einem Testflug starten, ein weiterer Druck auf die 
<RETURN >-Taste beendet den kleinen Rundflug. Mit der 
<START >-Taste verlassen Sie den Editor und beginnen 
ein neues Spiel. 

Wenn Sie Heliman mit DOS 2.5 laden, geben Sie als 
Startadresse »A800« ein. (Klaus Fecker/gn/hf) 


Steckbrief 
Programm: Heliman 
Sprache: Maschinensprache 
Eingabehilfe: AMPEL 
Datenträger: Diskette 
Programmname :HELIMANN. COM @BAB:AF BO BD B9 94 A? SO BD <an> 8170:88 80 82 88 BD 80 80 89 <aD> 
Länge 4328 Bytes B@OBB:BA 84 28 BS AB 28 FD B3 <58> 8178:80 BB BB 20 80 2D SD B2 <BS> 
@@B8:4C 77 A? AC B9 84 B9 D& <BB> 8188:A9 sp Az 
BBCB:AB 91 DE CB CC BA 84 DO <16> B1BB: AS nF? sa 
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@818:9B A2 12 9D 4A 835 A9 88 <DB> BBEB:F4 EF F2 ES EE 88 91 98 <43> B1AB:AF 8D C7 
2020: 9D AD QS A9 05 9D 42 85 <92> QBEB:8B 8® AC ES F6 ES EC 80 <aB> @1B2:C5 92 A9 @A 
QB28:A9 96 9D 44 85 AF AB 9D <FD> BOF0:90 90 80 BR BB FS EE EB <9C> 81B8:28 sr 82 
0050:45 85 20 56 E4 60 A? B@ <EE> B@F8:F4 ES 88 0 m 70 O0 m <As> B1CB:A9 85 59 
00358: 8D ED 84 BD 96 B4 BD FB <aSs> 8180:70 70 88 82 80 88 BS FB <Cc7> @1C8:D4 ea 8D 
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@BAB:FS 6E SD CO @2 ED Ci 02 <BO> B110:80 BO 30 80 80 80 80 80 <ED> 21D8:24 
@OSQ:8D CA @2 ED CH @2 aD C6 <A7> @118:89 8® 8@ 80 80 80 80 88 <ES> BIEBIFF 
B@58:22 BD C7 D2 AD 42 BS SD <BS> 0120:80 20 80 80 80 82 80 50 <pp> BL1E8: BO 
BORD AE 94 AD 45 85 BD AF B4 <IF> 0128:88 82 80 82 80 50 BB 89 <D5> BIFB:FS 
@068:AD 44 835 BD B® B4 AD 45 <EE> 2130:80 88 80 80 80 59 88 BA <D7> B1F8:8D 
2070:05 SD Bi 84 AD 48 BS BD <84> 8138:8A 8A 80 88 B4 ES FS F& <oD> 2290: 84 
@078:B2 @4 AD 49 05 ED B3 84 <34> Q14B:E6 EC FS E7 28 B@ BA Ba <Da> 2288:A7 
@B80:AD 4A BS BD BA 84 AD 4B <65> 2148:8A 89 80 80 80 80 80 80 <BB> 8210:84 
@088:25 BD BS D4 2m Gr B2 a9 <an> Q150:88 82 22 22 2a 2a Ga 30 <an> 2218124 
B@9B:BC 85 DB A9 AB 85 D9 AB <2E> 2158:B9 89 B@ B® BB 88 88 89 <AS5> 8220: 88 
0098:08 A9 3@ 71 DB CB 91 DB <AC> 8160:58 82 80 52 58 80 88 88 <9D> 8228: AD B7 B4 69 
L B@BAB:A9 1% 85 DC A9 Bi 85 DD <8B> 0168:80 80 89 80 20 289 88 80 <95> 8238: AD 24 86 69 
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@2C8:8A AA 
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GABEL 04 
BIBB:AC aA 
BSBB:AB AC 
@sca:s0 84 
BSCB:CE 88 
23D0:24 20 
@5D8:32 20 
SIER:A2 84 
GSES:AD 2D 
BSF@:26 8D 
BSFB:B6 94 
@428:4C 25 
B4@BLAC AD 
BHB:EE 81 
@418:D8 C9 
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2548:69 
@S48: AD 
SS: AD 
2558: 24 
2560: 21 
@548: 95 
2570: A8 
2S78:08 
0582: 87 
2589169 
2572:24 
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SSAG:FE 
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25B2:F@ 
@SBa: AD 
25C0: 00 
@5C8:47 
2508: 79 
2SD8: BE 
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2602: 20 
628: 4D 
8619:C9 
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0620: 8D 
2628: Bi 
2630:84 
2638124 
2649: 68 
@6AR: AD 
B6SB:3E 
2658: 
2660: 4C 
2668104 
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2678: AQ 
2682: 8D 
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QBFBE AL 
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2868: 20 
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28C8:74 
2800: 35 
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@B40:9C 24 4C 59 B3 CQ LE F@ <sa> @D28:24 AD 87 94 C9 GE FO 19 <a0> BFIB:AA AA AZ AD AD AD 20 Sa <EA> 
MBAB:1S EE 95 B4 EE 9A B4 AC <a5> BDSB:EE 91 04 AD 91 84 C9 19 <38> BFIB:AA AA BA BA BA BA 02 ©2 <O4> 
@B30:39 B3 CQ@ 32 FB @& CE 95 <62> ans 52 EE 85 Q4 AD 85 04 <ca> BFZB:FF AF AB AR AB AB AF AF <BD> 
@BS8:B4 CE 9A 24 ac 59 BS 4C <EB> @D42:1C9 82 F@ 33 C9 FF FO 41 <34> GFZB:AF AF AB AR AA AA AA AR <52> 
Q@B60:9B B4 2@ CD AD AD 98 84 <15> @D4B:60 A9 QO AD 87 @4 18 AD <66> BFSQ:FF FF CE AR AA AA AA AA <B> 
@B68:C9 GE F@ 1FE C9 97 F® 25 <AB> QDSB:86 84 59 18 ED 84 84 C9 <2C> BFSB:FF FF BE AA AR AA AA AA <DD> 
@B79:C9 @D F@ 25 C9 @B F® 2A <7B> QDSG: 60 FO 14 AZ @@ AC 86 04 <B> BFABIFF BF CF AA AR AA AR AA <FB> 
@B78:4C 59 BS AD FC 02 C9 FF <74> @D&@:B9 BD AF 9D @B 53 Ca ER <Ca> @FABıFA EA ER AR AA AR AA AR <A6> 
Q@BSO:DB 29 AD 84 82 C9 Bi DR <Fc> MD6B:EB 18 DO F4 AC 2A BS AI <ar> BFS@:FF FA EA ER FA FA EA ER <BF> 
GBSS: IF 68 CE 81 D4 CE B1 04 <aQ> 2070: 80 8D 86 B4 AL 55 BS AD <B8> GFSB:FA ER ER FA ER AA EA EA <7E> 
@B9@:4C 59 BS EE 88 84 AC 59 <7E> 2D78:00 AZ Q@ BD BZ B7 77 @8 <ac> BF&BıAB AB AF AB AF AB AA AB <71> 
@B9B:BS EE B1 B4 EE 81 84 4C <B9> QDEG:S® CE CE EB CO 20 DB FS <7D> QFSE: BE AU BO 20 DU AU DD DB <an> 
@BAB:S9 BS CE 88 B4 AC 59 BS <78> @D88:40 AC DB BS A9 QM BD 91 <EB> @F72:20 20 20 20 DO Da Da 22 <aa> 
@BAG:AC &C B4 C9 BB F@ 27 C9 <ıa> QD92:24 18 AD 9M @4 69 BE BD <as> GFTELFF FF FF FF FF FF FF FF <96> 
ZBEG:3B FO 29 C9 IF F@ 2B C9 <D2> 2098: 98 B4 C9 30 FÜ SO AC 9m <ca> @FE@:AB AB AB AB AB AB AB AB <33> 
QBBS:1E F@ 2D C9 1A F@ 2F C9 <cs> @DAB:®4 A7 QR A2 DB 99 48 55 <an> @FBa:EA EA EA EA ER ER ER ER <A6> 
@BC2:18 FO 31 C9 @@ FB 36 C9 <66> @DAB:CB EB EB 28 DO F7 EE 99 <aC> BFFQ:FF AA AA AR AR AA AA AA <63> 
GBCE:SE FO 2F C9 15 F@ 47 09 <2c> GDBG:24 AD 99 94 C9 B2 Da ar <an> BFFB:AA AA AM AA AR AA AA FF <ac> 
@BDB:OC FO 49 4C 66 B4 28 1B <BE> @DBB:A9 @O ED 99 24 AZ BB AP <c2> BFAR:OD BA BA DA BO AB AB AB <78> 
BBDE:B& AC 66 B4 20 FA BS 4C <65> @DC2: 10 SD 97 04 AC Ca BS A2 <Ca> BFAB:BD BO 2 SB GB AB AB AB <9a> 
@BEB:66 B&4 EE FB 6E AC 66 B4 <76> @DCB:2@ A? @B ED 97 04 BD 1D <32> OFBQ:SS FA FA 9A 55 A9 AF A7 <06> 
GBEB:EE Fi 6E AC 66 B4 EE F2 <B4> @DDQ: BO 99 48 SS Ca EB EC 97 <BA> @FBS:2ı @4 1 AD 4m 10 D4 BI <A1> 
@BFO:SE AC 66 B4 EE FS 6E 4C <82> @DDE:84 DO F3 AD 9F BS 4C 54 <AC> BFCO:B4 94 94 4 BO 11 0 @O <E&> 
GBFB:66 B4 4C 57 B4 20 FD BS <s0> BDEB:BS A9 QB AD 20 99 @8 Sa <7C> @FCB:78 78 46 EB B7 18 42 Dı <91> 
@CQB:4C 66 B4 A9 84 28 85 AB <E7> @DEB:CE CO 20 DO Fa 4Q A9 a <E7> OFDE:BE ©0 82 18 44 BD 64 84 <OB> 
@C@a:A7 97 20 65 Bi 20 @@ Bi <AB> ODFOLSD 9m 94 AB BD 99 78 55 <23> GFDE:D4 04 4 D4 O4 04 B4 D4 <F6> 
@CiQ:4C 66 B4 AC 77 A9 20 16 <E7> @DFE:CB CO BB DO Fa AC 98 85 <S9> BFEB:BA @4 Da @4 D4 B4 84 DO <7A> 
@C18:B4 4C 66 B4 18 AB @1 Bi <F7> GEDG:AD ZE 96 C9 6C DO BB AD <2B> @FEB:44 51 BB 84 @4 04 41 20 <Ba> 
@C29:D8 69 @1 C9 SA FO 85 91 <37> GEBB:2D 96 C9 48 DO Qi 4B 18 <35> BFFO:B& DO 20 DO BO OO DO BO <11> 
@C28:DB AC 42 B4 18 A9 38 91 <F7> BEIBLAD 2D 06 69 28 BD BB 84 <FD> BFFB:6S 64 69 74 6F 72 00 00 <83> 
@C30:D8 AD @@ Bi DE 69 Bi C9 <56> GEIB:AD ZE 96 67 BO BD 2E 96 <as> 1000:00 22 @D DO Q2 DE 2m 80 <an> 
@C38:3A F@ 85 91 DE 4C 42 B& <SB> BE2O:6D AD 2E 86 C9 64 Da Ba <SD> 1008:89 82 20 20 E@ gu nO BO <D7> 
@C4Q:A? S@ 91 DS AB BI 91 DB <an> BEZE:AD 2D @6 C9 BO DO BI 68 <Da> 1010:89 80 20 80 80 2@ 30 88 <cF> 
0C48:18 AB 2® BI DE 69 4M AB <32> QESO:18 AD 2D 86 E9 27 BD BE <SE> 1Q18:80 80 20 30 E80 20 SO 3B <c7> 
@CS0:40 91 DA 18 AB @1 Bi DB <6D> GESB:B4 AD 2E 06 E9 QM AD ZE <S6> 1220:80 80 SB SQ 82 SQ SD 80 <BF> 
@CS8:69 &B AB #1 91 DA 6B A9 <1A> BEAO:B6 6D 00 BO 20 OD am 30 <A7> 1228: 88 8@ 80 80 80 80 80 ©@ <B7> 
OC4B:@8 29 85 AB AF BB 20 63 <a5> BE4S:18 DC 06 05 BL QO BR Ga <ac) 1230:80 20 80 38 82 80 su BO <ar> 
@C68:B1 2@ 80 Bı A? FF SD FC <E2> GESB: BO FB FO EU CO 50 OD BO <66> 1038189 88 80 Ba au a2 E9 EC <6C> 
0C70:82 6@ AD 81 84 C9 CB 98 <D2> BESB:AR AA AA AA AA AA AR AA CB9> 1B40:E4 80 AE F2 88 7A 80 98 <38> 
SC78:BE AC 93 84 B9 51 BG SD <3A> BESB:AA AA 2A BA BA DA 22 @B <SE> 1048: 70 80 30 80 20 82 2m a0 <ar> 
@C80:94 84 AB 23 91 D& 6 18 <E&> BE6B:AA AA AB AB AB BO Bm 8 <5s> 1850:80 BB 80 58 88 80 30 A2 <Bi> 
BCBB:AD 2D 86 &D 9B 84 85 D4 <E4> BETO:AA 2A 28 ZA DA OA 2A 2A <an> 1@58: Al AS A& BS A7 B4 BS AS <AC> 
GCI@:AD ZE 86 6D 9C 94 85 DS <25> GE78:E0 3D AB AG A2 An AA AA <9D> 1@6@:AA B7 Bi AB AC BB AD AE <A9> 
BC9B:AD 94 84 AC 9A B& 91 DA <SB> QERO: 2 DA GA ZA ZA ZA AA AR <FB> 1068:B9 BZ A4 AB A9 BA B& EC <2D> 
@CAB:6D 20 ES B4 EE 88 94 AD <DS> BEBE:EO BB AD AB AB AB AB AA <Ac> 1870:3B F7 FA 88 88 80 89 80 <sc> 
BCAB:BE 94 C9 05 FO QS AC SC <ar> BEIG:AA AB AD AD AB BO AD AA <E&> 1078:FD 80 BO 30 F& BO BO AF <an> 
OCBQ:BS AC CS B2 CE 89 84 ac <71> GESBLAB AD AB AB AD An AB AB <CE> 1988:82 80 ZF 32 22 BO 2B 2a <Bı> 
GCBB:ES BA EE 89 84 AC ES B4 <FO> BEA: BO 80 82 AZ AA AA AA AA <DC> 1038:20 22 90 Bu 20 aa 2a au <an> 
BCCB:CE 81 84 CE 81 94 AD 88 <22> GERB:EB AB AB AA AA AA AA AA <SF> 1098:00 DO DO 90 O2 OO 2m @Q <B@> 
@CCB:B4 C9 @1 D@ ıC 20 Fa BS <sc> GERD: BR AO OD @O Bm Am AB AR <as> 1098:00 BO 20 DO EU QG DO ma <Ba> 
@CD@:2@ CD AD 4C ES B4 EE 81 <C9> GEBB:AA AA AA 2A 28 BB 08 08 <65> 1BAB:FB 80 82 88 F7 80 80 65 <A2> 
@CDS:84 EE 81 24 AD 88 84 C9 <37> BECB:AN AR AA 28 20 DO @D 2D <D4> 1QAB:00 Ei BO EZ 80 85 BB 88 <cc> 
GCEB:@1 DD @& 20 1B B& 28 CD <DF> GECB:2A BA 02 02 15 FF Ca ca <cı> 1BBG:38 80 80 80 82 80 20 0 <2F> 
BCEB:AD AE 81 04 EB SF FO E& <74> GEDB:AB AD 80 80 34 FF 03 03 <98> 10B8:82 88 80 80 80 80 aa nu <27> 
SCFO:ED ES FB CC AD BO Ba 09 <24> QEDS:MG 20 2@ 28 23 2A An mA <An> 10C0:90 80 80 BB 32 80 80 80 <ir> 
GCF&:Si F@ BF C9 CF F@ BS @D <5D> BEERı2A BA GA AR ZA BA BA ZA <Ar> 1@C8:Fi F2 FS F4 F5 88 80 @1 <21> 
QDEG:2@ DD ED BI DB AB 2@ 59 <a5> GEEBLAZ AR BA AA AA AR AZ 22 <39> 12D0:9@ 22 OD 23 DB 04 04 Da <B9> 
@DBE:SC B6 9D F& 53 EB CB Ca <an> GEFO:BO 20 BO OD 92 Ba 2A An <a2> 10D6:20 BE 06 &n &B &C 6D GE <A6> 
@D18:@D D@ F4 EB 9D F& 53 AE <BB> GEFG:BZ DA ZA AN AA AN AA AA <6C> 19EB:6F 97 09 @0 OB 00 GB RO <EE> 
@DIB:B1 94 B9 IC B& 9D F6 54 <32> BFBB:BR BA BA ER DO AB AB AB <1a> 
@D20:E8 CS C® 16 DB FA EE 87 <aE> BF@B:2Q OD ma mm me 28 An An <as> »Heliman« (Schluß) 
Programmname : BBEB:ED DO OB B2 BE AD BO 08 <7c> BIEBEA1 Ai Al Al Al Al Al Al <EB> 
Länge BBEB:2O DO Bm BU B2 AI Al Al <ES> BIEBLAI AI Al AS BB BB QQ BO <cı> 

@@F@:A1 Al Al Al Al Al Al Al <55> Q1FB:22 @Q B9 Al Ai AB 2 QM <BB> 

@OFB:AI Al BE 00 DO BO BB 90 <Ae> BIFE:BE DO 20 QU DO MO AE A2 <FB> 
BORG:A1 Aı Al AI Al Al AI Al <cH> 2102:00 20 52 2G 20 DB Ma DB <s2> 8220: A1 Al BD OB BD BD AZ Aı <z1> 
geBE:A1 Al Al Al Al Al AI AI <BD> B1BE:20 2@ @® As AB Gm 2a a0 <B7> @2@B:A1 Al Al Al Al Al Al Al <BIl> 
@@1B:A1 Al Ai Al Al a1 Ai Al <BS> 2118:22 28 GB De AZ Al Al Al <BB> @21@:A1 Al AS 00 BB 00 DO BO <61> 
@@IBrA1 Al Al Al AI Al Al Al <AD> @1lE:A1 Al Al Al Al Al Al Al <as> @218:0@ Q@ 08 BZ Al Al A7 Q@ <ım> 
BRZBıA1 Ai Al Ai Ai Al Al Al <as> 2120:A1 AS @D 2Q DB DO Da ma <op> @220:20 20 BR @B Da ma mm A& <cA> 
@BZB:A1 Al AI Al Al Al Ai Al <DD> 80 80 20 20 2a ma mm <ia> @228:A7 AD 0@ au ma D@ B7 B2 <QB> 
B@S@:A1 Aı Al Al Al Al Al Al <96> 20 BR B2 AB DO 2m DB <aA> 825@:A1 Al Al Al Al Al Al Al <Ba> 
@asg:Aı Al Al Al Al Al Al Al <BE> @@ 2a ma 80 B2 Al Al <E7> 0258: Al Al AB AC 2a DO mO 2a <as> 
Q@4BıA1 Al Al Al Al Al Al AI <B6> Al Al Al Al AI Al Al <ac> 8242: 00 20 @D E9 B97 Al AB BR <79> 
@B4B:A1 Al Ai Al Al Al Al Al <7E> 22 2a ma ma 20 2a ma <26> 2248:00 20 22 DO au Ze ma B7 <as> 
B@S@:A1 Al Al Al Al Al Al Al <76> 80 82 80 28 2m aa am <en> @250: AB 80 20 OB BO 29 B9 Ai <iC> 
QQSB:A1 Al Al Al Al Al AS AD <7E> @@ 20 B2 Al A7 B7 B@ <82> B25B: Al Al Al Al Al Al Al Al <6a6> 
B@6DıA2 A1 AB AD AE AD AE A2 <3E> 20 20 am @9 AZ Al Al <CB> @26B: Al Al Al Al AB AC 2@ BO <13> 
@B6B:A1 Al Al Al Al BB @@ 2F <a6> Al Al Al Al Ai AL AB <9B> 0260:00 00 @O BO Ab Al Al A7 <a6> 
2070:30 B9 Ai Al Al Al Al Al <Q@> 20 20 E2 Da Da 84 24 <cC> 8270:00 20 20 2m ma um Bm @m <74> 
@078:A1 Al Al AB BF Al Al Al <FC> 94 24 E2 00 DO 90 28 <ic> 0278: AD 20 DE aa mO DD aa Aı <93> 
GBBD:A1 Al Al Ai AS AD 80 80 <as> 2a 2 AZ Al Al AB Ba <as> @ZBB: AI Al Al Al Ai Al Al Al <59> 
@08: DD A2 BE @U Du mm ma ma <28> 2m 20 00 @@ DB B2 A1 <wa> 0288: Al Al Al BE QM AD aa Q@ <EB> 
QRFO:AE A2 A1 Al Al OO OD O0 <33> Ai Al AL Al Al Al AA <44> @290:00 Ba 20 20 B2 Ai Ai Ai <a8> 
QO9Bı0@ 0 AE BZ Al Al Al Al <DB> ©0 20 A1 20 20 @O @B <ns> @298:A7 EZ 84 04 24 84 04 Qa <ES> 
@BAB:A1 Al Al Ai Al Al Al Al <25> 90 BS Ai AS 20 00 DB <68> @ZAB:B4 B4 04 Da 04 4 E2 B2 <QE> 
@BABıA1 Al Al Al A9 QG Ga am <B5> 00 00 ®DO AE a2 Al A7 <ac> @2AB:AI Al Aı Al Al Ai Al Al <S1> 
QUBQ:20 80 80 ER 30 30 DO 28 <cE> 20 2D O0 20 B@ B2 Aı <ar> @2B@:A1 Al BB OR OB OD DB OD <&a> 
GOBE: 20 Bm AE Al Al A7 QB Qa <20> al Al Al Al Al AI Al <as> @2BB:00 @0 @@ @® A2 Ai Ai Aı <sa> 
@ACDı2m 20 29 A2 Ai Ai Ai Al <SE> B4 BS AQ 00 0m um am <34> ®2C0: Ai AB 00 00 20 m Da Bm <sF> 
BeCS:Al Al Al Al Al Al Al Al <FD> @@ B2 Al Al A7 @Q @@ <BE> 22C8:20 2D @0 00 @O mn A2 AL <B1> 
B@DB:A1 Ai Al AS OO Da DO Mm <a7> ©0 20 @0 20 88 B2 a1 <n7> @2D8: Al Al Al Al Al Ai Ai Al <E9> 
BeDS:20 Da Ga DU 20 2D Qu am <ca> B1DB:A1 A7 00 00 Da Bm As Al <cı> @2D8:A1 Al AS B7 A7 OG 92 ma <an> 
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9220: 28 
2ER: A1 
S2F0:20 
@2rBıA1 
aaa: Al 
@S28: 28 
25121 a1 
2318128 
2520: A1 
@328:A1 
2332:20 
@338:A1 
2340184 
@348:A1 
2s5B Al 
@558:080 
@Ss@rA1 
B36B:A1 
878: Ai 
@S7B:A1 
2582: 80 
QS8:AD 
BSImA1 
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Ergänzen «AAPPy.x = 
Sie jetzt Ihre COMPUTER -Sammilung = 


Schaffen Sie sich ein 
interessantes Nachschlagewerk und = = a 
gleichzeitig ein wertvolles Archiv! Be 8 


Kennen Sie alle »Happy Computer«-Ausgaben von 1985? Suchen Sie einen ganz bestimmten Sana a a 
Testbericht? Oder haben Sie einen Teil eines interessanten Kurses versäumt? Suchen Sie nach rg 5 
einer speziellen Anwendung? Prog in Bapr und Gied CO . Fi 
Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen a oe fe 
Seiten eine Zusammenstellung aller wesentlichen Artikel der noch lieferbaren Ausgaben. au a 1 
Und so kommen Sie schnell an die gewünschten Ausgaben: Prüfen Sie, welche Ausgabe in Bere Saar arena ö 
Ihrer Sammlung noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer aeg 
dieser Ausgabe und das Erscheinungsjahr (z.B. 2/85) auf dem Bestellabschnitt der hier 
eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte einfach heraustrennen und 
Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs- 
eingang umgehend zur Auslieferung gebracht. 
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Die Ausgaben 
6/85, 2/85 und 9/85 
sind bereits vergriffen 
und nicht mehr lieferbar! 


Auch die bisher 
erschienenen Sonderhefte 

können Sie 
jetzt direkt bestellen: 


SONDERHEFT 01/84: SINCLAIR 
Unentbehrliche Informationen zu den Sinclair 
Computern ZX8] und Spectrum. 


SONDERHEFT 01/85: SPECTRUM 
Anwendangsbezogene Listings und Tips& Tricks 
für alle Spectrum-Fans, 

SONDERHEFT 02/85: SCHNEIDER 1 

Eine Fülle wertvoller Beiträge und Listings 

für alle Schneicler-Anwender. 


SONDERHEFT 03/85: SPIELE 
Ein Super-N jewerk für alle Spiele-Faas mit 
10 Spielen im Test und großer Marktübersicht. 


SONDERHEFT 01/86: SCHNEIDER 2 
Noch mehr Tips und Tricks für Einsteiger und Fort- 
geschrittene mit vielen interessanten E 


SONDERHEFT 02/86: AIRRI 
Besonders 800 Al- und 130 XE-Fans erwarten jede Menge 
Anwendungs und Spiele-Listings sowie Informationen. 
SONDERHEFT 03/86: 68000er 

Umfassende Informationen zur neuen Computer- 
Generation und eine große Vergieichstabelle, die im 
Detail über alle 6800er informiert. 

SONDERHEFT 04/86: SCHNEIDER 3 

Eine Erweiterung für alle Schneider-Anwender, Super- 
Programm-Listings und großer Einsteiger-Teil. 
SONDERHEFT 05/86: PROGRAMMIERSPRACHTN 

Fuß lassen in »Pascal«, »C« und »Forth« mit jeweils ei- 
‚nem grundlegendem Kurs und vielen Änwendungs- 


tingteil, viele Informationen, Tips 
und Tricks für Anwender der 68000er-Computer. 
SONDERHEFT 07/86: SCHNEIDER 4 

Mit den Schwerpunkten joyce und CP/M plus, Rat- 
‚schlägen zur Vortex-Karte und vielen Tips & Tricks. 


SONDERHEFT 08: COMPUTER ALS WOBEY 
Wissenswertes für Einsteiger und zusätzliche Informa- 
tionen zur Fernsehsendung Computerzeit. 


SONDERHEFT 09: 68000er 3 

Mit den Schwerpunkten Sound- und Videodigitalisie- 
fung und Spieleprogrammierung. 

SONDERHEFT 10/86: SCHNEIDER 5 

Der neue Schneider-PC wird vorgestellt. Wieder viele 
Hilfestellangen und Kurse. 


SONDERMEFT NU/B6: SEES 
ies über aktuelle Spieletests, Computerprogramme, 
Grafik und Musik Software. ä 

SONDERKEFT 12/86: 68000er 4 

Ausführliche Testreihe aller Grafikprogramme für 
AtariST, Amiga und Sinclair Ol. sowie viele Grund- 
lageninformationen zu diesen Computern. 
SONDERHEFT 13: SCHNEIDER 6 
Diskettengrundlagen-Kurs. Reiche Auswahl an Pro- 
grammen für CPC. Schneider CPC oder PC: Fakten 
und Vorteile. b 


SONDERHEFT 14: SOFTWARE 
Der Softwareführer 1987 für ihre optimale 
Programmauswahl. 


SONDERHEFT 15: HARDWARE-TESTHEFT 
Über hundert Geräte für optimale Hardware Auswahl 
im Test. 


SONDERHEFT 16: SCHNEIDER 7 
Das Super-Programm CPC-Giga-Cad: 
Dreidimensionales Zeichnen plus animierte Grafik. 
SONDERHEFT 17: SPIELE-TESTS 

wählte Spieleneuerscheinungen vorgestellt und 
kritisch unter die Lupe genommen. 


SONDERHEFT 18: SCHNEIDER 8 
Soschlägt Basic alles: kürzer, schneller, besser program- 
mieren mit Plan. 


SONDERHEFT 19: ATARI ST 
Alles für Umsteiger, Programmierer und 
Assembler-Freaks. 


Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B. 08/85) auf dem Bestellab- 
schnitt der hier eingehefteten Bestell-Zahlkar- 
teein 


Am besten gleich 
mitbestelle: 
Die Happy-Computer- 
Sammelboxen 


Für alle Leser, die »Happy 
Computer« regelmäßig 
kaufen, sammeln oder im 
Abonnement beziehen, 
gibt es ein interessantes 
Service-Angebot: die Hap- 
py-Computer-Sammelbox! 


Mit dieser Sammelbox 
bringen Sie nicht nur 
Ordnung in Ihre wertvol- 
len Hefte, sondern schaf- 
fen sich gleichzeitig ein 
interessantes und attrakti- 
ves Nachschlagewerk. Ein 
kompletter Jahrgang (12 
Ausgaben) paßt in eine 
der praktischen Sammel- 
boxen! 


Übrigens: Die Sammelbox 
ist nicht nur ein prakti- 
sches Aufbewahrungs- 
mittel: Sie eignet sich 
auch hervorragend als 
Geschenk für Freunde 
und Bekannte zu vielen 
Änlässen. 
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@2C@:A2 A1 BB 6E B9 Al a1 an <DI> @SCH:A1 Al Al Al Al Al Al Al <FB> BEDG:A1 Aı Ai Ai BE 8B 82 SO <B6> 
@2C8:A1 Al Al Ai Al Al Al Al <F1> @SD@rA1 Al Al Al Al Al Al Al <E3> Q8D8:30 80 Az nı Al Al Al Ai <52> 
@2D@:A1 Al AB A2 20 @D @D @a <ac> @SDerA1 Al Al Al Al Al Al AS <ED> BBER:A1 AI AI Al a1 Al Al Al <35> 
@2D8:99 em ma AZ A1 Al Al A9 <an> 2SEB:ED 80 BD'C0 92 BD 88 B7 <AC> @BEB:AI Ai Al Al Al aı Al Ai <AD> 
BZEB:2O 2 ©a 2a @D DD Um mm <E#> @SEB:B2 Al Al Al Al Al Al Al <CA> BBFQ:A1 Al Al Al Ai Al AL Al <cH> 
G2E8:00 AD @@ &n @m A2 Al &B <21> @SF@:AI Al Al Al Al mı Al Al <43> BBFB:A1 96 6A GB 6C 6D SE ur <99> 
@2F@:A2 Al B9 Al Al al Ai Al <CD> @SF@rA1 Al Al Al Al Al Aı Al <CB> BIBB:6A &B 6C &D SE 87 Al Al <EQ> 
@2Fe:A1 Al Al Bl OO Au Qm aa <D4> @6R2:A1 Ai Al Al Al AS AD Bm <BR> BRBE:A1 Al AI AI Al Al Al Al <as> 
@500:90 @O 00 9@ A2 Al Al BB <BE> 0608:8@ 52 2G E@ a0 B7 Ab Al <3s> B91BAi Al Al AI Al AI Al Ai <AB> 
2@398:20 20 20 2a 2a 22 DO Q@ <aE> B61@:Ai Al Al Al Al Al Al Al <A1> @F1BrA1 Al Al Al Ai Al Al Al <DS> 
2310:00 @B @@ 6C BO @m AD sc <A2> @61B:A1 A1 Al Al Al Al Al Al <B9> @92Q:Al Al Al Ai BE BD BO @ <EE> 
BS18:20 AE BB &5 A2 Al Al Al <I5> @628:A1 Al Al Ai Al Al Al Al <DI> 2928:@00 @® BZ Al Al Al Al Al <FE> 
@32@:A1 Al Al Al A7 2a QQ am <82> @428:Al Al Al Al AB BO 2@ 80 <DB> B9SQ:R1 Ai Al Al Al Al Al Al <ac> 
2328:28 20 BB @Q GG Az As 20 <FB> 8632:80 82 88 80 As Al Al Al <Da> @938:A1 Aı Al Al Al Al AI AI <74> 
2539: 20 22 20 2D O0 DO Le DR <36> W638: AL a1 Al Al AI Al Al Al <an> @94@AI Al AL AI Al Al AL AI <7C> 
@558:0@ 20 2@ &B QQ DO @O &D <51> 8640: Al Al Al Al Al Al Al Al <72> @I4BLAl Al Al Al A9 AO DD BO <sE> 
2340:29 ®@ OD 9a DB AZ Aı Mi <Ar> B6AGLAl Al Al Al Al Al Al Al <6A> B9TB:BB BD B9 Al Al AL Ai Ai <11> 
@S48:A1 Al Al Al Al Al Al F@ <BF> B65B:A1 Al Al Al AB BB 82 88 <BS> @9S5B:A1 Al Al Al Al AI AL Al <94> 
@SSQıE1 Ei Ei E1 Ei Ei EI EI <9A> G650:80 82 80 As Al a1 a1 Al <EA> @96B:A1 Al Al Al Al Al Al Aı <DB> 
@S58:E1 E1 Ei Ei Eı F& A7 88 <> @66Q: a1 Al Al Al Ai Al Al Al <92> @76B:A1 AL Al Al AI AL Al Al <cs> 
2362:28 28 02 @D sA Om sE ma <ac> @668:A1 Al Al AI Ai Ai Al Al <C9> 2970:A1 Al Al AI AB BO BR 20 <ır> 
2360:28 28 22 DO DB Ma B9 Al <a2> B678:A1 Ai Al Al AI Al Al Al <Ci> 2978: 00 @m B2 Aı Ai Al Al Al <4E> 
@578:A1 a1 Al Al Al Al Al FB <1E> @678:A1 Al A1 A9 AD BO 80 8@ <52> Q9BR:AL Al Al Al Ai Al AI AL <SB> 
@S78:E1 EI E1 Ei EI EI EI EI <02> Q689:80 89 As Al Al Al Al Al <29> @7BB:A1 Al Al Al Al Al Al Al <23> 
@SSQ:E1 Ei EI EI EI F7 Al A7 <A6> @68B:A1 Al AI Al Al Al Al Al <29> @97@:Al Al Al Al Al Al Al Al <2B> 
0338:00 20 DD QO oa &r DO ma <a8> BE9B:A1 Al Al Ai Al Al Ai Al <21> @998:A1 Al Al Al AS BO 20 80 <re> 


100 


L 


Ai AB 80 <aB> 
QABB:AI AI Al AI Al Al Al Al <FS> Al Al Ai Al Al <an> 
@9CB:A1 Al AB AZ BB BD 20 DB <28> Al Al AL AI AI <ER> 
Q7CB:2Q BB B2 Al Al Ai Al Al <Ia> @AAB:A1 Al Al Al Al Al Al Al <66> Al AL Al Al a1 <EI> 
@D@:A1 Al Al Al Al Al Al Al <EB> BASB:AI Ai Al Al Al Al Al Al <7a> Al Al Al Al Al <F9> 
BPDB:AI Al Al AL AL Ai Al Al <13> BASB:A1 Ai Al Al Al Al Al Al <92> Al BB 80 80 80 <E2> 
BFER:A1 Ai AL Al Al Al Al Al <SB> Al Al Al Al Al <IF> 
BFEB:A1 Al Al Bi DO BB QO Ga <D2> Al A <a1> 
BIFR:BB DO A2 AI Al Al Al Al <D6> 2m <ac> 
@PFA:AI Al AL Al Al Al Al Al <BS> 22 <ec> 
BABB:A1 Ai Ai Al Al Al Al Al <A9> aa <16> 
BAma:A1 Al Al AL AI Al Al Al <A1> 
@AIBıAi Al Al Al A7 90 80 80 <as> 
BAIB:DE 90 BI AI Al Al Al Al <ca> 
ai @sBB:A1 Al Al Al Al Al AL a1 <as> 
ai @acB:Al Al A7 6E BR 80 SQ 80 <aa> 
22 Q4C8:20 BO BB BO AR 30 8@ 80 <2F> 
0268:00 @@ @2 au AZ a1 Al Al <E2> 24D2:80 &F 6A 6B A2 Ai Al Al <D6> 
827@:A1 Al Al AS AE AD B9 AD <BE> @aDBrAl Al Al Al Al al Al Al <ES> 
@@1BrA1 Al Al Al Al Al Al Ai <B5> @27:AE A2 Al Al Al Al Al Al <9B> B4EBLA1 Al AL AI AI Al Ai Al <1D> 
@B1B:A1 Al Al A1 B& B& Al Al <AA> @280: Ai Al Al Al FB EI Ei D@ <rn> Q4EBLA1 Al AS 6GF 90 BD 80 8Q <a2> 
B@2@:A1 Al Al Al Al Al Ai Ai <as> 9298: 00 20 @@ 20 DO Da am mm <ac> Q4FB:89 80 80 00 SD 09 EM &D <Fa> 
@@28:A1 Al Al AL A9 Ei AZ Al <IE> 0290:08 BO Q2 20 Da B7 Ai Ai <SD> G4AFO:4E Ba BS AT 6C AZ Al Ai <aD> 
Ai Al AI Al Al Al <96> 0298:A1 BB AS 20 2D BO Qu DU <AF> @s@@:Al Al Ai Al Al Al Ai Al <BS> 
AB AZ Al Al Al Al <75> G2AG:0M QB 65 B9 Ai Ai Al Al <io> GS@B:Al Al Al Al Al Al Al Al <BB> 
Ai Al B& B& Al Al <EE> @ZABıAL Al Al Ai FI EI EI EI <91> BS1@:A1 AD 6A 80 80 88 ER BB <cc> 
Al Al AL Al Al Al <7e> E1 @S18:20 80 80 80 80 &B &C Ba <94> 
Al Al AS Ei SB na <46> 20 cu 2528:B5 Ai Al Al A7 &D 07 Al <BS> 
Al Al AS AD AE AD <DS> 22 @528:Al Al Al AI Al Al Al al <sc> 
AD BB AD AD AE AD <SD> B2 BSSB:AI Al AI Al Al Al Al Al <84> 
AD B? B& B& BB 2F <D6> Ai Al FB @558:Al A7 6B BD BQ 80 38 88 <A6> 
Al Al AI Al Al AI <aQ> Eı Eı EI 2540:89 BB EB 6F 6A B& B5 Al <51> 
AS AD @0 El @@ As <7B> a7 20 08 @S48:A1 Al Al Al Al Ba Al Al <1a> 
Al AS 20 00 02 00 <F7> 2e ca mo @55B:Ai Al Al Al Al Al Al Al <64> 
22 20 0@ 2a 2m 2B <as> 2a 2e eo @SS@:A1 Al Al Al Al Al Al Al <ac> 
20 00 BA SB BR aa <ı5> ar al Fi B560:Ai BB SC BR 80 30 80 80 <B9> 
a2 Al Al Al.AI Al <42> F& Fi FS @S68:0@ &D GE B4 BS Al Al Al <62> 
Da 20 am EI BO A2 <am> Aa 00 08 @57@:A1 Al Al Al Al AI Al Al <C3> 
AS 00 00 DO 2O @G <16> 22 As AB @578:A1 Ai A1 Al Al Al Al Ai <aB> 
20 20 20 aa 2m ma <Ba> QS1a:AB AC 00 Qm mm az Al Al <47> @S8@:A1 Al Al Al Ai Al Al Al <33> 
a0 2m BA BB DO 08 <B> @520:A1 Ai Al Al Al Ai Al Ai <B7> @588: Al AR A7 &D EG BO 80 &B <E9> 
Ab Al Al Al Al Al <1D> @328: Fa F2 FS Al FB EI EI EI <41> 239@:6C B4 BS Al Al Al Al Ai <ia> 
A7 00 @G Eı na ma <B9> BSSU:FS Ai A? 29 00 00 DO DO <ED> @598:A1 al Al Al Al AL Al Al <2B> 
AS DO 00 02 DB 2D ma <an> QSSG:@0 A& An Ai Al Al Al Al <76> <53> 
@0 80 80 B4 BS A7 SB <a6> BS40:Al Al A7 OB BR De As Al <BC> <1B> 
20 2R 00 SA GB Da @m <65> @S4B:A1 Al Ai Al Al Al Al Al <70> <D@> 
@2 B9 Al Al Al Al Al <BB> @35Q:A1 Al Al Al Fi FS FS FS <29> <F1> 
Al AD OB BB Ei 00 ma <e2> @SSB:F3 Al Al AB AC B4 AD Ba <29> <ES> 
02 22 2u mm 2m mm am <Fa> 9360:B5 Al Al Al Al Al Al Al <DS> <FB> 
@m Ba B5 Al Al Al A7 <57> @S6B:Al Al AB DO DO BO AA Aı <Ea> <ES> 
20 22 2a EA 2b am am <an> @S70:A1 Al Al Al Al Al Al Al <C7> <27> 
B110:20 @B B2 Al Al Al Al Al <ca> @378:A1l Al Al Al Al Al Al Al <BF> <13> 
@llerAl AL A7 00 BO E1 90 @0 <6B> @SEQ:A1 Al Al Al Al Al AL Al <57> <3B> 
@2122:20 2m 20 BO O0 Da ma Bu <a2> @SOGr Al Al Al Al Ai Al Ai Al <ZF> <a3> 
@128:B4 85 Al Al Al Al Al BB <24> @590: Ai Ai AS 00 09 @@ B2 Ai <Ea> <cB> 
B132:20 GO @O EU SA BB 00 20 <Ba> @S98:A1 Al Al Al Al Al Al Ai <IF> <78> 
Q138:0@ 90 B2 Al Al Al Al ai <FE> @SAQ:AI Al Al Al Al Al Al Al <37> <A9> 
@12@:A1 Al Al A7 2Q E1 2m am <Fc> GSAB:AL Al Al Al Al Al Al Al <ar> <a1> 
9148:20 Qu DD ma aa ma B4 B5 <68> QSB@:Ai Al Al Ai Al Ai Ai Ai <87> <B9> 
@1S@:A1 Al Al Al Al Al Al A? <B4> Q@SBB:A1 A1 AF 20 BB BO AZ Al <72> <D1> 
B1SB:22 DO 20 @B SA GB am ma <na> @SCQ:A1 A1 Al Al Al Al Al Al <17> <3a> 
2160:08 28 B9 Ai a1 al Al Al <11> @SCB:A1 Al Al AI Al Al AL Al <EF> <82> 
@16B:A1 Al Al Al FO EL EI EI <ca> @SD@: Ai Al Al Al Al Al Al Al <E7> <aA> 
B17B:E1 EI EI Ei Ei Ei Ei F7 <8c> @SDB:A1 Al Al Al Al Ai Ai 99 <47> <72> 
@17B:A1 Al Al Al Al Al Al AB <CA> GSEB:A1 Al AB D@ Da ma B2 Ai <sa> <an> 
2190:20 20 20 2G BA BB BB DO <a1> @SEB:AI Al Al Al Al Al Al Al <ar> <28> 
@188:2@ @& BZ Al Al Al Al Aal <4E> @SFa:A1 Al Ai Al A1 Al al Al <47> <7D> 
B19@:A1 Al Al Al FB Ei EI EI <AF> Al Al Al Al Al AL <3F> <92> 
@I9BLE1 Ei Ei EI EI EI EI F7 <D2> Ai Al Al Al AS 6E <ae> <c9> 
@iAB:A1 Ai Al Al Al Al Ai AB <32> A9 00 00 BO AZ a1 <FS> <c1> 
B1AB:BO 20 BO 20 Ca Eu Bm mm <AD> Al AL Al Al Al Ai <aD> <aD> 
B1BB:@0 88 A& Al Al mi Al Al <as> a1 Al Al Al Ai Ai <as> <58> 
@iBB:Ai Al Al Al FI EL EI Ei <IF> Al AL Al Al Al Al <DD> <29> 
@1CB:E1 E1 FS FS FI EI EI F7 <FD> 89 BB AZ AS &F A& <2n> <21> 
BICB:A1 Al Al a1 a1 Al Al Al <FS> AS 00 BO BO B2 Al <49> <39> 
Q1DB:E2 94 04 24 D4 04 84 84 <Cı> @aSG:Al Al Al Al Al AL Al Al <B6> <B> 
@1D8:@4 E2 B2 Al Al Ai Ai Ai <FF> Ba4B:Al Al Al Al Al Al Mi Al <7E> <c3> 
BIEB:A1 Ai Al Al FB EI Ei Ei <SF> @saBzAl Al Al Al Al Al Al AS <78> <a1> 
BIEBLF7 FS FS Al FB FS FS F5 <an> @4SB:AD 6E 6D &C 6B 6A QM AZ <1D> <ı9> 
BIF@:AI Al Al Al Al Al AL Al <5B> 2458:B7 AS 50 ®0 80 BD As Al <SB> <F1> 
BIFB:AL A7 22 Om ma zu Q0 au <35> Ba6QrAl Al Al Al AI Al Al Al <9E> <aa> 
Q2@0:20 22 a1 a1 Al Ai mi a1 <an> W468:Al Al Al Al Al Al Al Al <D3> <cE> 
@2@8:A1 Al Al Al FE EI Ei FS <SB> @47B:A1 Al Al AS AE AD AE 6 <68> <F9> 
@21@:F5 Al Al Al Al Al AS AD <9@> @478:6F 80 80 82 50 0 38 20 <as> <ı1> 
@219:89 Al Al Ai Al Al Al Al <DD> 2489: 20 80 68 80 30 80 A2 Al <9c> <a9> 
@228:A1 Al BS AR AA AB AA A7 <52> @ABB:A1 Al Al Al Ai Al Al Al <35> <77> 
@2Z8:A6 Al Al Al aı aı Al Al <aF> @a9@:A1 A1 Al AI Al Al Al Al <2D> <DD> 
@25@:A1 Al Al Al FO EI Ei F7 <17> Q498: Al Al A2 80 6D &C &B 88 <31> <As> 
8238:A1 Al BR AE AS AE 80 08 <93> Q4AB:ED 80 BD 38 BD 80 SR Ba <57> @7@BrA1 AL Al Al Al Al AL Al <A7> 
@242:89 AD AD A2 Ai Al Al Al <9E> G4AB: ED BO 80 BU EU B4 Bu Al <An> 
@248: Al Al Al Al Al Al Al Al <72> @4BB:A1 Al Al Al Al Al Al Al <an> »Level 3« (Anfang) 


@71@:A1 Al Al Al Al 96 6D 6C <99> BasüıAl Al AS BO Bm Bm B2 A1 <87> B9CB:AI AI Ai Al ni Al Al Al <FB> 
8718:45 80 88 80 BO 00 BO 80 <64> @878:A1 Al Al 6F A2 BB B9 AS <B5> @FCB:A1 AI Al Al Al Al Al Al <ES> 
2720:39 80 80 20 90 20 BD 8a <Di> @87B: AE BB AE AD QD AE AZ AS <FB> @9D@:Ai Al Al AL Al Ai Al Al <EB> 
8728188 AZ Al Al Al Al Aı Al <78> @BB0:AZ AS AD AE BO AE B9 AS <97> B9DB:AL A7 MO DM ma DO ne a2 <62> 
8730: A1 A1 Al Ai Al Al Al Al <aB> @e88:A2 AD AE AE BR AE B9 AS <3Q> BFEB:AI AI AL Ai Al Al Al Al <SB> 
@738:Al Al Al Al Al Al Al A9 <A@> @89@:AD AD 80 BB 30 30 B9 Al <C7> QFEBEAI Al Al Al Al Al Al Al <as> 
9742:50 88 82 20 80 80 ER BR <Bi> BBFE:A1 Al AS BO GE 20 20 80 <an> Q9F@:AL Al Al Ai Ai Al Al AI <cB> 
0748:80 80 80 82 80 50 20 SQ <A9> @BAB:Em 30 82 50 GQ ED sm 8m <ar> @IFB:AL Al Al Al Al Al Al Al <BS> 
2758:38 89 AE B9 Ai Al Al Al <FD> @BAG:BR 80 EB EU Bu 8m am 80 <47> BABBıAL AS DD 20 Da 2a 2@ ma <ED> 
9758:A1 Al Al a1 Al Al Al Al <78> Q8B2:80 80 SD 90 82 80 BD 88 <sr> QABB:AD AE AZ BB AZ Ai Al Al <ar> 
8760: A1 Ai Al Al Al Al Al Ai <9@> QEBS:5D 30 30 80 EU 20 B2 Al <BB> BAlB:AI Al Al Al Al Al Al Al <B9> 
8768:B1 88 82 SD 90 80 80 ga <71> BECB:A1 AB QD 92 @G &D SC &B <Fa> @AIB:AI Al Al Al Al Al Ai Ai <DI> 
2770:88 80 8@ 89 80 B7 80 80 <5D> QBCB:6A &F GE 6D 6C 6B 6A 6r <sa> @AZB:AI Al Al Al Al Al AI Al <an> 
2778:88 80 SD aQ AD AZ Al a1 <D1> Q8D2:6E &D 6C &B 6A 6F 6E &D <65> BAZB:AL AT OO 2O QO ma ma aa <7&> 
Ai Al AI Al Al Al Al <2F> GED8:6C 6B &A 6F SE &D 6C &B <02> BASQ:OR DO DB Om GR AD AE A2 <FB> 
a1 Al Al Al Al Al Al <27> BBER:6A 6F 80 30 80 BO As a1 <47> @ASS:BS B9 Al Al Al Al Aı Al <E2> 
2798:B3 80 38 50 30 80 50 30 <as> QEEB:A1 BE BR OO ED DU BO ma <77> @naBıA1l Al Al AI Al Al AI AI <an> 
@798:B4 BS AR BS AS Al AB AC <29> QSFB:00 22 QM Qu 2 Q@ Da BB <am> @AgB:A1 Al Al Al Al Al AL Al <66> 
B7AB:SB 38 80 80 80 QB B2 Al <D7> BEFB:2D @D 2O 2D mu mu mm 2a <an> BASB:AI Al AB AC B0 DB 22 BO <FC> 
@7ABıAL Al Al Al Al Al Al Aı <07> OIRE: 22 DB DR DO DA DO Bm Bm <ı2> @ASB:20 20 2Q 2O 20 DO 20 DU <6c> 
@7B@:A1 AI Al Al Al Ai Al Al <FF> GRAB:OO BO GE 6D MG A& Al Al <17> BASB:DO BB AD AZ Al Al AI Al <91> 
27B8:A?7 Bi B® AG BR 20 EB As <FE> ZIIB:AL A9 AD OO ED As AR AS <ac> BASBrA1 AL Al Al Al Al Al Al <ci> 
@7CQ:A1 Al Al Al Al Al Al AL <EF> @918:B5 AA AA AA AS AA BS AA <F2> BATB:AI Al Al Al Al Al Al Al <59> 
@7C8:A7 B1 80 BO 88 89 BF Al <Sc> @920: AS AS 00 Bl AA BS AS AS <or> BATE:AL Al Al Al AS AC mm 2m <9B> 
@7D@:Al Al Al Al AI Al Al Al <DF> 8928: AA Bi AA AA BS AA Bi AS <B2> BABB:DD DD DO Da DO DD Be 2a <94> 
@7De:A1 Al Al Al Al Al Al Al <F7> 8939:B5 AA Al A7 6C AZ Ai Ai <6D> OABS:ıBD DO BD mm m2 Aı Al Al <9®> 
@7EB:AI BB Bi AS B7 B4 BS Al <2E> @938:A1 AB QO O0 BO B7 Al Al <AD> BAPB:A1 Al Al Al Al Al AI Al <39> 
@7EBLAL Al Al Al Al Al Al Al <47> 894B:A1 Al Al Al Al Al Al Al <7C> BAFB:AI AI Al Al Al Al Al Al <51> 
B7FO:AL Al A7 00 80 80 B2 Ai <9@> @P4B:Al AS Ab Al Al Al Al Al <83> BAAB:A1 Al Al Al Al Ai AR AC <28> 
@7F@:AL Al Al @9 Al Al Al AL <S1> @9S@:A1 Al Al Al Al Al AI Al <6C> BAAB:2D 20 OB DO 20 20 20 am <Ec> 
BaRG:Ai Ai Al Ai Ai Al Al Al <BS> 9958: A1 Al Ai AL A7 6B Al Al <Ec> BARB:OO 00 DD BB A2 A1 Ai Al <38> 
QBBB:A1 Al Al Al Al Ai Al Al <AD> @96B:A1 AB DO M& 2D B2 Ai Al <99> QABB:A1 Al Al Al Al Al Al Al <Fı> 
@e1@rA1 Al Al Al Al Al Al Al <as> @96B:A1 Al Al Al Al Al Al Al <c5> BACB:AI Ai Ai Al Al Al Al Al <E9> 
@Ble:aı Al Al A7 80 8@ B7 Al <Dc> 8970: A1 Al Al Al Ai Ai Al Al <B> GACarA1 Al Al Al Al Al Al Al <EI> 
2820: A1 Al Al 6B Al Al Al Al <31> @77B:A1 Ai Al Al Al ai al Al <33> BADD:AB AC 80 82 80 Sn 30 80 <ma> 
@eZe:Ai Al Al Al Al Al Al Al <aE> Q9BB:AI Al Al Al Al 6A Al Al <aR> GADS:EG B@ QG AU GG B9 Al Al <55> 
BESB:AI Aı Al Al Al Ai Al Al <86> @9B8:A1 BB OB DO BO B2 Aı Aı <@4> BREBSA1 Al AI AL AI Al Al Al <49> 
@838:A1 Al Al Al Al Al Al AI <7E> B99@: AI Al Al Al Al Al AI Aı <2B> @REB:AL Al Al Al Al Ai Al Al <41> 
QB4Q:A1 Ai Ai AS BB 89 na A <a9> G99B:A1 AL AI AI AI Al Al Al <55> BRFO:E2 AS SF 74 00 20 20 @@ <AD> 
@Bs8:A1 Al Al 6m Al Al Al Al <F> B9AB:AI Al Al Al Al Al AI Al <in> GAFE:DD 20 2m O2 ma 20 2a 2a <ac> 
@852:A1 Al Al AB Bo Aı Al Al <95> GAAB:AL Al AL Al Al BB Aı Al <A1> GB2B:AD DR D@ Da 2m mm za mm <16> 
Basara1 Al Al Al Al AI Al Al <9E> BIBR:AI AB 00 0O OG AZ Al A1 <an> 
@86B:A1 Al Al Al Ai Al Al Al <D5> BIBB:AL Al Al Al AL Al Al Al <FS> »Level 3« (Schluß) 
Programmname :BILD®S. DAT @170:26 2A 2B AS 20 O0 DO OR <ar> @S@8:Al Ai Al Al Al Al Al AB <EI> 
Länge 12816 Bytes 2178:00 05 2® DD 22 2a DO 9 <SB> GSBE:AC SO 2D 80 EB AZ AS 20 <Aa> 
B1E0:02 20 2D 20 OD ma mm 32 <BA> @510:89 8@ Aa al Al Al Al a1 <an> 
Q188:21 21 21 2E 2D 21 21 21 <B7> 8318:A7 8@ EB 88 B2 Al Al Al <1D> 
BB@B:A& AA AB AA A7 As AS AA <ED> @198:21 21 2B 2C B@ 00 @B 22 <BS> @52@:A1 Al Al Al Aı Al Al Al <B7> 
@R@B:B1 AS AC AS A7 DO O0 mm <27> @198:21 35 21 AB 2C 00 QO DO <F7> @528:Al Al Al Al Al Al Al Al <CF> 
2O10:20 @0 20 A& A7 11 Bi BS <12> BIAB: BE 25 DO UO 00 OO 20 BO <63> @330:A9 A& A7 80 00 80 88 20 <86> 
Q@IB:AB AR Bi AC AS AA AB AS <F7> @1AB:S1 20 QB Da ma ma Sı 24 <C9> BSSE:@ B2 Al Al Al Al Ai Al <9C> 
@820:B5 AS AS Bi AA AA A7 BO <A9> 21B0:21 21 23 6E 6D 22 21 21 <15> @540:A9 80 EC BO A4 Al Al AI <BE> 
@@28:A1 Aı Aı Al Al Al Al AL <DD> 0188:21 23 AE 2D @0 20 20 8 <9c> @S4B: Al Al Al Al Al Al Al Al <70> 
@Q32:A1 Al Al Al Ai A7 28 BO <ca> B1CQ:2D 90 22 ZI 21 ZB AA A? <59> @359:Al Al Al Al Al Al Al Al <a» 
@039:00 88 E7 BZ Al AS B2 Al <Da> B1CB:20 62 BD O0 26 2A AA 1 <cı> @558: Al FB EI EI EI EI EI EI <04> 
@B4B:A1 Al Al Ai Al Al Al Al <B6> @1DB:33 25 2A 27 26 25 21 21 <96> @S6B:E1 Ei F7 Al Ai Al Al Al <65> 
@848:A1 AD Al Al Al Al Al A7 <79> B1D8:21 28 6F 26 27 &C 24 21 <FS> 2368:A7 80 ED 80 As Aı Al Al <2D> 
@852:21 21 21 Ai Al Al 21 21 <46> B1EB:A9 82 82 80 80 80 5Q 20 <aa> @S70:Al Al Al Al Al Al Al Al <c7> 
@258:21 21 21 21 21 21 AS AA <EB> Q1EB:BD 80 BG AD AE AD AZ as <6B> 8378:A1 Al Al Al Al Al Al Al <BF> 
@068:B1 As An 21 21 21 a1 Al <F9> @1F@:D1 B2 AA Ai Al Al Al Al <9e> BS8Q:A1 Fa Ei Ei Ei Ei Ei Ei <BE> 
@@68:A1 Al 21 21 21 21 25 ZF <11> BIFB:A1 Al AL AI Al Al Al Al <as> QSBG:E1 EI F7 Al Al Al Al Al <14> 
87:38 DB 22 21 21 21 21 21 <aD> @2BQ:A1 AB EA A4 A EB BZ Al <6B> B39@:A8 82 EE 32 B2 Ai Ai Al <7C> 
@978:A1 Al Al Al Al AE B2 Al <23> BZEB:A1 AR A7 BD am Bı 8 80 <77> @39@:A1 al al Al Al Al Al AL <IF> 
BEBB:A1 Al Al Al Al Al Al Al <a5> 8210:50 30 830 80 30 30 30 @1 <6c> BSag:A1 Ai Al Al Al Al Al Al <37> 
@BBS:Al Al Al Al Al Al Al Al <2D> @218:A& AE AZ Al Al Al Al Al <ac> @SAG:Aı FI FS Fi FA FS Fi F@ <66> 
BO9B:AI Al Al Al Al AS BB 08 <Da> 9220: A1 Al Al Al Al AS B2 Ai <ES> @SBB:F7 FS FS Al Al Al Al Aı <aS> 
GQIG:3B 80 80 A4 Al Al Al Al <92> @2Z8: AE AS EB BZ Ai En Al Al <FS> QSB8:A9 9@ EF m az Al Al Al <74> 
B@AB:A1 Al Al Al AS B@ AE AZ <cC> @25@: Al Al Al A7 A6 Al AB AC <30> OSCBIAL Al Al Al al Al Al Ai <17> 
Al Al Al Al Al Al Al <SD> 2258: 80 20 80 su au En Di S0 <C#> OSCH:A1 Al Al Al Al Aı Al Al <EF> 
Al Al Al AI Al Al Al <15> 9240: AD 80 ©@ AE AZ Al Al Al <F7> @SD@:A1 Al Al Al Al Al Al Al <E7> 
Al Al Al AS 80 80 am <357> ®248:A1 Al AS AE AD BB AE AS <79> @SDe:A1 Al Al Al Al Al Al Al <DF> 
80 80 B2 Ai Ai Ai Ai <49> 0258:88 9@ EC B2 Aı @8 Al Al <E6> @SEB:AS 99 EA 80 As Al Al Al <FF> 
A1 A9 AD 8Q 89 BO EB <c6> @258:A1 Al Al Al Al Al Al AB <6D> @SEB:A1 Al Al Al Al AB AD AE <SB> 
AD A2 Al AD Ai Ai Al <ES> @240:50 80 80 88 20 21 80 58 <9D> @SFO:AZ AS AD AE AE 09 Al AL <FE> 
E2 a2 Aı aı al Al AL <74> @26B:80 80 80 BD A6 Ai Al Ba <Cı> QSFB:A1 Al Al Al Al Al Al Al <IF> 
Al Al AS 8B em 50 50 <ıa> ®27@: AE 65 88 80 530 80 50 30 <EB> Ba@B:A1 Al Al Al Al Al Al Al <BD> 
80 A6 Al Al Al Aı Al <DS> 8278:80 80 ED BO A2 Al Al Ai <2B> 2498:A9 @0 EB BB B2 Aı Ai Al <A6> 
BRF@:A1 Al AD BB ED 50 59 80 <na> @28@: Al Al Al Al Al Al Al A7 <SF> @A1B:A1 Al Al Al Al AS BB Da <D2> 
BOFB:S0 59 80 AE 89 A2 Al Al <B> @288:80 Bi 80 80 Di 80 80 80 <An> @41B:00 2a DO DB aD EC DD A2 <75> 
Q1Q0:A9 83 B2 AS AE A4 Al AE <aD> 2290:80 8® 80 B2 Ai Al AB BB <62> @428:Al Al Al AS AZ AS AD AZ <26> 
@108:AD AD BE 80 88 SD 80 Bi <BD> 8298:80 80 80 80 30 80 99 99 <65> @428:AD AA Al Al Al Al Al Al <47> 
QL1O:89 A& Al Al Al Al Al Al <oB> @2AB:EO 80 EE 80 BO AD A2 Ai <25> BASB:RS 88 EC 88 AZ a1 Aı Al <AS> 
@118:21 23 20 2@ 20 @0 20 @@ <73> @2AB:A1 Al aı Al Al Al Al Al <S1> @458:A1 Al Al A9 AD BO Bm aa <FC> 
20 20 20 2m ma 2E AE <2C> @2BQ:A1 AB 00 Dı DO 82 8@ 80 <BC> 2440:00 20 20 28 EB 28 ED 20 <nı> 
85 2E 28 a0 24 25 20 <ic> ®2B8:80 80 80 AZ RE Al A9 80 <Ac> @448:A2 AS AD 00 20 BD 00 08 <7r> 
22 20 22 2m mn mm 24 <56> 82CB:80 8D 30 20 30 30 99 30 <3B> @459:B4 A1 Al Al Al Al AS AE <FD> 
21 21 21 21 Ai 21 21 <BC> 82C8:80 98 EF 80 80 80 A& Aı <72> 0458:89 8@ ED ED A6 Al Al Al <47> 
27 00 2a DB DR 2a ma <ıD> 82DB:A1 Al Al Al Al Al Al Al <E9> @asBıA1 Al Al AS 65 BD @O DD <62> 
22 20 20 2m me mm mm <an> ®2D8: Al AF EZ Bi BS AB AC 88 <DA> 2468:28 02 20 En BG DQ OB EE <aD> 
23 20 20 98 ZD am ED <c7> 02E0:30 38 80 80 38 B2 A9 Em <34> 2472:20 20 DO 20 22 DO Bm am <78> 
GISB:BO RO 2a DO Da ma mm 24 <7E> B2EB:80 30 30 Ab AA AS Al A7 <c3> @478:B2 Al Al Al AL AS @B 80 <SB> 
@168:21 21 21 21 21 21 21 21 <52> B2FO:80 8B EN 89 Bi As Ai Al <EQ> Q480:80 28 EE EB B2 Al Al Al <as> 
2168:21 20 Ba aa aa Bu Da 1 <Fs> B2FBLA1 Al Al Al Al Al AI AL <41> Q4EB:A1 Al Da 00 BO 20 Da BO <eo> 
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2490:00 
BAIBLEF 
BRAQ:A2 
Q4Ası 20 


@s78: Al 
0580: 82 
@588:A3 
SIR: AL 
2598: AB 


B61a:Al 
2620: A6 
0628: B1 
8630: A1 
2638:80 
2640: A1 
@648:A2 
2650:4 


BRBERBERRRBESFRIBERRBERBEBICHTERER 


BREBRBRSBRSESGRREOTRSRENFTERSHESESIRSPAABBAHHEENSTESFENFENn 


® 


SERBRBSSSTERSEASRESEERASS 


SRERSSRSRMIRSTSTRSASSISESERHRSZSBRSEABAIERS 


82 
1:63 


a2 


Programmname :BILD®4.DAT 
12816 Bytes 


Länge 


gzaa:sc 
wars: Al 
QBia:Aı 
aaıaıAa1 
222: A1 
Qe28: EC 
aasa:Aı 
Qas8: Al 
Dead: Ai 
@B48: a1 
Q252:8C 
Qa58:A1 
Bas: Ai 
2B6BA1 
2272:32 


B76B: Al 
8770:88 
B77B:AE 
@7aBın1 
@788:A2 
2790: Ai 
2798: 80 
T7AR: AS 
Q7AB:A1 
2782:B2 
27B9:A2 
B7CR:A& 
a7ca:Al 
@7D2: Ai 
27D8:A2 
27E2:88 
B7EB:A1 
B7FQ: AL 
O7F&:A1 
BAR: A& 
BaR8ı890 
CHCH 
E18: AD 
2822: A1 
2828: B2 
2839:88 
BESB:EC 
2849: 20 
Q848:86 
2850:87 
@B58: AC 
2860:88 
2868: 00 
2870: A1 
2878: B2 
BegR:E1 
gese:E1 
2898: 20 
QB78:A1 
BaAdıA2 
BaAs:E1 
BSB@:E1 
QaB2:20 
QEC2:A9 
BaC8: 24 
Bene: Fi 
QaDaı rs 
ABER: OB 
BEER: AL 


waca: a1 
@@DB:Aı 
aan: Aı 


Q138:A1 
B14B:A1 
B148rA1 


EB EA EF EE ED EC <öf> QBFQıA& AR AA A7 Al Ab Ai Ai <2B> 
87 A7 81 90 89 05 <a2> BSFa:Al Al Al AS AE AZ AS AD <59> 
Al Al AB AC 85 B@ <7E> OO: R2 AS AE AD 20 Da Da DB <aC> 
ge Al Al a1 Al Al <SE> Al Al Al Al Al <E0> 
A7 00 28 28 BO EE <a8> 200 20 22 2a Da <Er> 
@8 AB 80 080 28 A& <18> Al Al AL AL AL <1B> 
AS 81 88 8D 80 85 <98> ©8 28 80 52 Da <an> 
a1 AS 80 AD 85 80 <9D> 20 ©0 20 DD Dm <79? 
B2 Al Al Al Al Al <2A> Al Al Al Al Al <BB> 
AD 2® @@ BD EF Bm <a4> 20 20 20 DD 0 <37> 
Al AS 8@ 8B A6 Al <DB> 2942:B9 Al Al Al A1 Al Ai Al <6B> 
81 Bi 80 88 89 85 <ao) Q@ 20 DD DO F7 DB <Am> 
58 88 88 88 83 88 <a8> 22 28 20 F? 00 DB <a6> 
Al Al Al AL AL AI <77> AB AZ AS AZ Al Al <67> 
20 2e 22 ER OD A& <a6> 22 20 2a 20 ma ma <2D> 
A9 A& 80 80 AD A2 <75> a1 Al Al Al Al Al <94> 
A& A9 8B 92 88 85 <EB> F?7 BB Da 22 20 Da <FD> 
22 80 2D 2m 85 80 <ar> 2a 2m 20 Fa 20 20 <72> 
Al Al Al Al Al Al <ES> AD B@ FA @@ As Al <EC> 
B1 @2 EB 90 Da AD <DB> 20 22 2m 2m za @0 <14> 
Al AF BB 88 88 As <FF> B9 Al Al Al Al AS <53> 
Al @7 Al AS AC 80 83 <ca> 20 20 2a 2a Da 2a <an> 
82 82 8@ 82 8 85 88 <87> F9 20 80 ©D FF DB <7C> 
B2 Al Al Al Al Al Al <FC> 22 00 @@ A& Al Al <SS> 
Al 26 EC 2 DR OB Bm <u7> 20 20 2m 2m BB BO <FC> 
Al Al A? 00 BO 8 a2 <SB> @2 B7 Al Al A? BD <2F> 
Ai EF Al Al AB 88 85 <B9> @Q F9 DO FA BB A& <FB@> 
89 80 A& An A7 E2 Bi <95> 20 22 20 FA QB QB <ca> 
At Al Al Al Al Al Al <9D> @@ @@ Bi AD A2 Aı <as> 
A1 AS ED 2@ 92 Da ua <92> 20 20 22 20 20 DO <25> 
Ai Al AS 92 82 80 82 <c9> @0 @0 A2 AS @@ 0@ <aE> 
Al EE Al Al Al A7 E2 <82> 22 22 a2 am am AD <A7> 
AR AA Ai Ai Ai Ai Al <C9> FA @2 20 22 00 00 <#1> 
Al Al Al Al Al Al Al <E7> AIFA:GO OO DO BO AZ AT As Al <As> 
A? 22 00 EE 20 22 am <ca> @AD2:Ai A? 2Q 20 DO Da 2a ©m <ar> 
Al AB Bi 88 82 80 80 <68> BADE:AO DE QO 20 2O 9B 2O BO <ıc) 
AE ED AZ Al Al Al Al <a3> QAIZ:FA 80 20 28 2a Da Fo Ba <F2> 
@9 AD AE A2 AS B2 Al <BE> QN18:00 FF DB ZU QD 2G @G FF <&as> 
Ai Al Al AI Al Al Ai <ZF> @A22:00 ®0 2O FA B@ A2 A1 Ai <sE> 
A9 20 DO DO EF Om am <BC> QAZ8:A1 AS D@ 2U BO 2m ma ma <75> 
Al Al Al A7 8Q 9Q 88 <84> GASB:ER 2m DU 20 D@ Da Ba FF <SD> 
82 EC 20 AZ Al AS AE <aB> AASI:QO Q® F7 BO FA @R 2a ma <sB> 
EB BB 88 88 2@ A2 As <91> @A42:20 22 BO DO ma 2m FA Da <a8> 
RE AD AD AD A1 Al Al <A9> QAAB:GE DO OB 20 BO A6 Al Al <D9> 
AS 00 2m DB 20 EA 88 <sp> QA50:A9. 20 20 DO DO Da 2m am <Ba> 
AL Al Al Al AB AC BO <22> BASE:22 DO 2O BU 2m B4 AC OB <76> 
88 80 ED 82 AD 88 88 <iC> @A62:2Q 20 ©O F7 DB F7 2a DO <EB> 
82 80 20 20 20 @D 2m <uE> BASS:FA OO A6 AS A& An As BS <56> 
© 80 Bi As Al Al Al <Fi> @A7@:AS Bi A6 A7 Ab Al Al Al <SE> 
EB EA EF EE ED EC EB <28> @A78:A9 00 20 BO 20 DB Da Ba <61> 
Al Al Al Al Al Al AB <B6> @ABQ:BO BO BO B4 BS Aı a1 AB <F6> 
8@ 82 8® EA EF EE ED <D9> @AB8:BS AB AC B4 AC 2@ 28 99 <50> 
80 82 20 BD DD 20 @@ <ae> @RFQ:OD A6 21 21 Ai Ai Al 21 <32> 
@@ A& Al Al Al Al Al <as> @R9ı21 21 21 21 21 Al Zi Al <EE> 
AS 00 20 20 DD @D DO <Bn> @AAB:AL AB 20 00 2D DO BO @@ <ErF> 
Ai Al Al Al Al AL Fa <15> QAAB:B® B4 BS Al Al AI Ai Al <BE> 
Ei EI EI Ei Ei Ei EI <D2> @AB@:Ai Ai Al Al Al AB BS AB <73> 
E1 E1 F& AB aa ma m® <32> @ABE:AS Al Al Al Al Al Al Al <EF> 
A6 Al Al Al Al Al Al <BE> @ACB:A1 Al Al Al Al Al Ai Al <EI> 
AS 20 20 DD DD DO Da <22> BACS:A1 Al AB AC @0 EB 2m B4 <Ba> 
AD AD AS AE A2 Al FB <EB> @ADB:BS Al Al Al Al Al Al Al <B> 
E1 EI EI EI EI EI EI <DA> GADB:A1 Al Al Al Al Ai Al Al <11> 
E1 E1 F7 A9 FF aa Da <ıE> @AEB:A1 Al Al Al AI Al Al Al <a9> 
AZ AL AI Al Al Al Al <aD> BAEB:AI Aı Aı At Al Al Al Al <aly 
E2 24 Da 94 94 Da Da <an> 74 22 a2 2m ma <cr> 
@& 94 84 E2 80 BZ Fi <08> 2a 20 20 2a @@ <ac> 
F7 FA F2 F2 FS F3 F2 <F1> 22 ce 2a 2a a0 <16> 
F2 FS F5 AS @8 90 Q8 <a2> 
@@ B2 At a1 Al Al Al <As> 
A9 00 mm ma 20 2a ma <ns> 
| 
AL AL AI Al Al Al Al <7c> 
00 DO 2m mm As Al Al <2A> 
Ai Al Al Al Al SC SC <2D> 
8C 8C 8@ #5 AZ Al Al <84> 
@17@:Al Al Al Al Al Al Al Al <DB> 
@178:A1 Ai Al Al Al Al Al BE <Da> 
SC 8C BC.eC BC Al Al <D3> Q0180:00 20 B@ 52 As Al Al Al <26> 
Ai Al Al Al Al Al Al <F5> @188:A1 Al Al Al Al Al BC BC <F4> 
Al Al Al Al Al Al AI <ED> @190:A1 EC 80 BB 38 98 A2 Ai <36> 
@198:A1 Al Al Al Al Al Al Al <23> 
@iABIAI Al Al Al Al Al AS 9@ <BE> 
QLAB:BQ Q@ BO As Al Al Aı Al <89> 
@1BQ:A1 Al Al Al At Al EC 8C <DC> 
G1BB: Al SC 2B am 80 90 80 Az <op> 
Al Al Al Al Al Al Ai <DB> 
Al Al Al Al AS SD BB <ı2> 
@@ A& Al Al Al Al Al <as> 
Al AL Al Al Al SC SC <as> 
BIEB:AI SC 89 08 SQ GB EB BB <B1> 
@LEB:AZ Al Al Al Al Al Al Al <93> 
Al Al Al Al Al SC SC <45> BIFO:A1 Ai Al Al Al A7 88 OR <oa> 
8C 8C SC 8C 8C Al Ai <62> BLFE:®@ @m AZ Al Al Al Al Al <AB> 
Al Al Al Al Al Al Al <74> 


»Level 5« (Anfang) 
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a200:A1 
ze: a1 
2212:88 
a2ıa:A1 
9220: 00 
0228: Al 
9238: A1 
0239: 8@ 
2242: A1 
0248:80 
@25@:A1 
0258: A1 
2260: 80 
@268: A1 


B2ABı Ai 
@ZAB:A1 
Q2BQ:A7 
@2BBıA1 
82C0: 6A 
a2c8:A1 
@2D8: Ai 
B2DB: A1 
@2EB: A1 
02E8: 00 
@2r@ıA1 
BzFarAı 
@S@0:A2 
@sQBı a1 
@310:00 
@S18: AD 
@320: Al 
0328: 00 
BSSQ:AD 
@5S8:80 
2342:08 
asaa:A1l 
2350: 08 
0358: 00 


Baar Al 
2449:88 
2448: A2 
2450: 6C 
2458: 80 
Car 
0468: 80 
2479: 80 
8478:6D 
B4BR: 80 
BaBBr Al 
2490: 88 
2498: 80 
B4AD: 08 
BAABı AS 
QaBa: a1 
@4B2: 80 
9409:02 
@ACB: Al 
BaDB:A1 
@aDB: Al 
Q4ER: 04 
B4E8: 84 
BAFQ:AS 
BAFB:AL 
asaQ:A1 


ARARBSBARSISALSSNÄSZSZÄSSBTASTERASESRARES 


> 
3 


ARBZSSERZESTRERER 


Ai 


SERRASSRRIBSERESBEBARARBASAGSASSESÄBEHENSSME 


BRENBEBEBERBIRREBRRERZERREARERRER 


8 
BAESENAHHSBRSBREBRA 


ERTEITEIEITITEI 


BEEERBSARBSEESBSEHMRSBHHRERSEANREHBERHE 


BIBELERHHESESE 


SREGEBRAGEBAGRERZBREERER 


2 


NEBSESRISSSRSTSREBBESBSERBRRARRR 


BEBRZRARPEERBEERABBERBBRZBERBBERREBREBEBREABERKABHEBBEETTBEBBLRBEBTBEBTRBERBEATZREARIERARERE 


BERZRERBERBEBRRBREPZBARBEABBEBBÄNFERRAGARERBERRASHBSASHSRÄSHBSÄSETBÄBSBTREETRABINSATRRRABERSARERE 
BERRRARBLEBBBRRERBPESBARBABBSEBBASBARNEBERESBRBANSPBABTRBASESUASBBAUSTTSRERTTASARNARRRBABEREANERS 
RERERIRBZERBERERBBRZIBEERARBEBBENKERNESBBACHBBEANBSRAABRANABEBANBZBAASTHARSENANSSRAARZRERERBASSERE 


Ai 


BB 


RERBERBABBBERBBRRABESEREBBEBSBTSERSETBERRREBBETAERSERZERFASESE?rES 


22 


@s1a:A1 
geıar a1 
2820: Ai 
Bazar: a1 
QB30: Ai 
ag3a:A1 
2842: A1 
aBaaı a1 
2858: A1 
Best: A1 
860: A1 
BBeR a1 
2870: A1 
2878: Ai 
2egQ: Al 
auge: a1 
2898: A1 
aBgerA 
BaAR:AL 
QBAB: Al 
QEBQ:A2 
BaBa:Aı 
BECB: Ai 
28C8:A1 
ZEDB: Al 
BED8: 80 
BBER:AL 
BEER: AL 
BBF@:A1L 
QBFB:A1 
2990: 38 
BIBB: Al 
B91B:A1 
@1B:A1 
2928: Al 
@928: 20 
2930: A1 
BIZarA1 
BIRD: AL 
BIB:AL 
2958: 20 
Q@ISB:A1l 
BI: A1 
2968: A1 
2978: A1 
2978: 20 
@IBQ:A1 
argsr A 
BB: Al 
aaa 
27AR: 20 
LEE 
ZIBR: AL 
BIBB:A1L 
asca:Aı 
AICB:AS 
BrDR:A1 
BIDE:A1 
BIER: AL 
DIEB: AL 
BIFBIAL 
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Die Macht des Geistes 


Messerscharfe Logik und ein gutes Vorstellungs- 
vermögen sind die Voraussetzung, um unser 
Denkspiel für zwei zu meistern. 


einzelnen Haus am Stadtrand sitzen noch zwei Men- 
schen in einem Raum, der in schummriges Licht 
getauchtist. Diese beiden Atarianer haben sich intensiv mit 
unserem Denk- und Strategiespiel »Stratfield« beschäftigt. 

Es geht darum, drei Felder in einer Reihe mit Hilfe be- 
weglicher Kugeln in »seiner« Farbe einzufärben. Dabei ist 
man aber nicht aufeine Ebene beschränkt. Die Felder kön- 
nen auch untereinander auf verschiedenen Ebenenliegen. 
Diagonale Reihen sind nicht erlaubt. 

Sie können Stratfield in zwei Varianten spielen, die Sie 
vor Spielbeginn einstellen. Bei der ersten Art hat jeder 
Spieler zwei Kugeln: Spieler 1 die roten, Spieler 2 die wei- 
Ben. Sie müssen sich genau merken, welche Kugel Num- 
mer 1 und welche Nummer 2 ist, daes während des Spiels 
nicht angezeigt wird, und Sie vor jedem Zug angeben, wel- 
che Kugel Sie bewegen wollen. In der Ausgangsstellung ist 
die vordere Kugel die Kugel 1. Wenn Sie Variante 2 gewählt 
haben, wird das Spiel noch vertrackter. Hier hat nicht jeder 
Spieler eine zweite Kugel, es gibt statt dessen eine Zusatz- 
kugel, die beide Spieler steuern können. Die Zusatzkugel 
hat für beide Spieler die Nummer 2. 

Gezogen wird abwechselnd, die Züge können Sie nicht 
zurücknehmen. Die Ebenen wechseln Sie durch die Tasten 
<P> (hinauf) und <;> (hinunter). Auf der Ebene bewe- 
gen Sie die Kugel mit den Cursor-Tasten (ohne 
<CONTROL>). 

Wie wird Stratfield gespielt? Wenn Sie mit einer Kugel 
zum ersten Mal auf ein Feld kommen, wird es für Sie reser- 


E sistspäter Abend. Die Straßen sind leer, nur in einem 


Ein Kampf in drei Dimensionen 


viert. Erst wenn Sie es zum zweiten Mal besetzen, wird es 
in Ihrer Farbe eingefärbt. Der Gegner kann die Felder aber 
auf dem gleichen Weg wieder umfärben. 
Das Programm istin Turbo Basic geschrieben. Zum Spie- 
len empfiehlt sich ein Farbmonitor. 
(Thomas Tennert/gn/hf) 


Steckbrief | 
Programm: Stratfield 
Sprache: Turbo-Basic 
Eingabehilfe: Prüfsummer 
Datenträger: Diskette, Kassette 


19 REM *%*%* STRATFIELD x== <Hu> 
28 REM *#* WRITTEN BY ##* <2X> 
38 REM **= TH. TENNERT ##* <KZ> 
AB REM ### (cc) 1987 u. <cF> 
a — <ZA> 
68 CLR :POKE 559,8 <9a> 
78 EXEC DECLARE <ru> 
88 IF PEEK(4994B)<>94 THEN EXEC CHSET <2$> 
9@ EXEC TITEL:POKE 559,62 <EI> 
188 EXEC SOUND <Uc> 
11@ EXEC DIF <HI> 
128 IF 0=2 <PR> 
1589 CO=8: 10=2:P0=1288: PK0=53249:1 PMO=Br EX 

EC STARTKO_2 <BV> 
142 ELSE <av> 
158 C0=56: 10=4:P0=1792:PK0=532S1:EXEC ST 

ARTKO <90> 
168 ENDIF <uc> 
178 EXEC GRAFIK <YAa> 


188 POKE 53277,3:POKE 625,1:POKE 731,255 <6B> 
198 POKE 712,B2:POKE 718,4:POKE 799,180:P 


OKE 788,148 <6L> 
208 EXEC INIT <cs> 
21@ EXEC PMBAU <HC> 
229 REFEAT <DB> 
230 EXEC SPWAHL <IF> 
248 YEA(TI=YEsXA(TDI=X:YA(TI=Y:XS(D)= 

SCIIJ=YFzXCA(TI=XC:YCACDI=YC <HC> 
25® EXEC GEWINNER <A0> 
26@ UNTIL G=1 <IH> 
27® EXEC WERTUNG <HL> 
289 EXEC SOUND <UT> 
29@ RUN <FA> 
320 — <IE> 
318 PROC TAST <IP> 


329 YE=YEALI)X=XACTITY=YALDIEXF=XSCHJ:Y 


F=YS (I) :YC=YCA(I) :XC=XCACT) :PLP=B <0B> 
33Q REPEAT <DE> 
348 GET T <Do> 


55@ UNTIL T=88 OR T=59 OR T=45 OR T=61 0 
R T=43 OR 2 

362 FOR 2=1 TO 8B STEP 2:SOUND 8,58+Z,10 
„S8:NEXT Z:SOUND 0,8,8,0 

370 ıF B AND YE>1 THEN YE=YE-1:Y=Y-48 
:YC=YC-: C=XC-5: X=X-48:PLP=1 

38@ IF T=59 AND YE<S THEN YE=YE+1:Y=Y+48 


<PB> 


<SB> 


<LT> 


<Ha> 


<D6> 


:X=X-16: YC=YC+2: XC=XC-2:PLP=1 

41@ IF T=43 AND XF>1 THEN XF=XF-1:X=X-1& 
PLP=1 

2 AND XF<3 THEN XF=XF+1:X=X+16 


<AL> 


<aI> 


=XC=XC+2:PLP=1 <RB> 
430 IF PLP=1 THEN EXEC PLPOSPRUEF <LH> 
448 ENDPROC <KO> 
a0 — <IPp> 
468 PROC TAST_2 <HA> 

478 IF T=8® THEN YE=YE+1:Y=Y+48: YC=YC+6: 
<ES> 

YE=YE-1: Y=Y-48: YC=YC-6: 
<ux> 

YF=YF+1: Y=Y+16:X=X-16:Y 
<HE> 

VF=YF-1: Y=Y-16: X=X+16:Y 
C=YC-2:XC=XC+2 <HF> 
sı@ IF T=43 THEN XF=XF+1:X=X+16:X0=XC+2 <BC> 


Ein fesselndes Denkspiel für zwei Spieler: Stratfield 


En 
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520 IF T=42 THEN XF=XF-1:X=X-16:XC=XC-2 
532 ENDPROC 

540 — 

552 PROC SPWAHL 

568 FOR Z=-1@ TO 12 STEP 2:SOUND &,ABS(Z 
),12,8:PAUSE S:NEXT Z:SOUND 0,2,2,2 

578 IF SP=8 

POSITION 15,7:7 #65 "ONE" :POSITI 


600 Exec spı 
618 ELSE 


629 SP=@:POSITION 1,9:? #65 "two":POSITIO 
N 15 7? Hös"ann" 
C=2:C1=122:C2=121 
EXEC SP2 

ENDIF 

ENDPROC 

678 — 

PROC SPi 

698 REPEAT 

7@@ POSITION 8,20:?7 #6: 
718 GET T 

728 UNTIL T=49 OR T=58 
738 POSITION 8,20:? #65 "NUMBER-"3T-48; "= 
WAS.CHOSEN" 

748 IF T=49 

758 I=1:EXEC TAST 

768 IF FR=1 

770 MOVE ADR(LE$) ‚PMB+1024,256:MOVE ADR( 
LO$) „PMB+1824+Y,14:POKE 53248,X:EXEC E12 
3 


"uACHOOSE-AABALL 


788 
798 
saa 
812 
828 


ELSE 

IF PLP=1 THEN EXEC TAST_2 

ENDIF 

ELSE 

I=2:EXEC TAST 

838 IF FR=1 

842 MOVE ADR(LE$) ‚PMB+12898,256:MOVE ADR( 
LO$) „PMB+1280+Y,14:PDKE 53249 ,X:EXEC E12 
3 


8sa 
868 
872 
888 
897@ 
908 
912 


ELSE 

IF PLP=1 THEN EXEC TAST_2 

ENDIF 

ENDIF 

ENDPROC 

PROC SP2 

920 REPEAT 

930 POSITION 0,20:7 #65" 2.CHODSE-A.BALL 
949 GETT 

95@ UNTIL T=49 OR T=58 

968 POSITION 8,20:7 #65 "NUMBER." ;T-48; "x 

WAS-CHOSEN" 

978 IF T=49 

988 I=3:EXEC TAST 

990 IF FR=1 

1220 MOVE ADR(LE$) „PMB+1535,25&:MDVE ADR 
(LOS) ‚PMB+1535+Y,14:POKE 53258, X:EXEC Ei 


23 

1819 ELSE 

1028 IF PLP=1 THEN EXEC TAST_2 

18350 ENDIF 

1848 ELSE 

185@ I=ID:EXEC TAST 

1860 IF FR= 

187@ MOVE ADR(LE$) „PMB+PO,256:MOVE ADR(L 
0$) „PMB+PO+Y,14:POKE PKO,X:EXEC E123 
1080 ELSE 

19298 IF PLP=1 THEN EXEC TAST_2 

118@ ENDIF 

111@ ENDIF 

112@ ENDPROC 

1130 -—- 

1148 PROC PLPOSPRUEF 

1152 FR=2 

1148 IF T<>88 OR T<>59 

1170 IF vi AND PE1(XF,YF)=@® THEN FR=1: 
PEICXF,YF »PEI(XS(I) ,YS(IY)=® 


<HR> 
<KN> 
<J0> 
<HX> 


<La> 
<H0> 


<IR> 
<Ya> 
<CH> 
<XU> 


<19> 
<MP> 
<H6> 
<VF> 
<KU> 
<aV> 
<KN> 
<Dr> 


<IN> 
<on> 
<RL> 


<SsT> 
<aHn> 
<IK> 
<TR> 


<TK> 
<rI> 
<uM> 
<uxX> 
<XH> 
<IH> 
<Ta> 


<H6> 
<Y£E> 
<NH> 
<VL> 
<UN> 
<LC> 
<IK> 
<KO> 
<DI> 


<aV> 
<DU> 
<RT> 


<TB> 
<au> 
<I6> 
<TZ> 


<x2> 
<SX> 
<HU> 
<SP> 
<T6> 
<IN> 
<Tc> 


<DE> 
<TS> 
<IP> 
<SI> 
<SL> 
<oK> 
<VP> 
<SH> 
<ur> 
<CD> 


<of> 


1188 IF YE=2 AND PEZ(XF,YF)=B THEN FR=1: 
PEZI(XF,YFI=1:PEZ(XS(I) ,YSCIYI=® 


119@ IF YE=S AND PES(XF,YF)=@ THEN FR=1: 
PESCXF,YPI=1:PEICXSCH) ,YS(D)=Q 

1282 ENDIF 

1218 IF T=88 OR T=59 

122@ IF YE=1 AND PELCXF,YF)=B THEN FR=i: 


PEL(XF,YF) 


E2(XF ,YF)=® 
AND YEACI)=1 AND PE2ZCXF,YF) 
:PE2(XF ,YF)=1:PE1(XF,YF)=® 
AND YEACI)=3 AND PEZ(XF,YF) 
PEZ(XF ,YF)=1:PESCXF,YF 
AND PESCXF,YF)=@ THEN Fi 
:PEZ(XF,YF)=® 


127@ ENDPROC 
1280 -— 
1298 PROC E123 
13980 IF YE=1:IF EiCKF,VFI<>CEELCXF,YFI=C 
:COLOR C3:PLOT XC,VC:COLOR C4:PLOT XC+1, 
YE:SE1CXF,YF)=® 
1312 ELSE :COLOR Ci:PLOT XC,YC:COLOR C2: 
PLOT XC+1,YC:SE1(XF,YF)=C:M=1 
1328 ENDIF :ENDIF 
133® IF YE=2:IF E2IXF,YFI<>CHEZIXF,YFI=C 
:COLOR C3:PLOT XC,YC:COLOR C4:PLOT XC+1, 
YC:SE2(XF,YF)=® 
1348 ELSE :COLOR C1:PLOT XC,YC:COLOR C2: 
PLOT XC+1,VC:SE2CXF,YF)=CıM=1 
135® ENDIF sENDIF 
136@ IF YE=S:IF ESCXF,YFI<ICIESCKF,YFI=C 
»COLOR CS:PLOT XC,YCsCOLOR C4:PLOT XC+1, 
YC:SES(XF,YF)=® 
137@ ELSE :COLOR C1:PLOT XC,YC:COLOR C2: 
PLOT XC+1,YC:SESCXF,YF)=CıM=1 
1388 ENDIF :ENDIF 
139® IF M=1 THEN FOR Z=1 TO 15:SOUND 8,6 
2,14,12:PAUSE 3:SOUND 8,2,8,@:NEXT ZıM=Q 
1428 FR=® 
1418 ENDPROC 
1420 -—- 
1438 PROC GRAFIK 
144® GRAPHICS 17:POKE 756,PAGE 
145D 7 Mög aaaazyzyzyannaauuu ce 
1468 ? Mala Yayanaaaaaaaacı 
1478 ? "ZyZyzyannaauauaa 
1488 ? se Aanaaassazyzyzyanasın 
1498 7 #65" 
1529 7 
1518 ? 
1520 7 Mbf"annnaaassssZzyzyzye 
15ID 7? Mög"anaa nn ryzyzyaanat 
1548 ENDPROC 
1558 — 
1568 PROC DECLARE 
157@ DIM YEA(4) ‚XS(5) ‚YS(5) ,XA(5) ,YA(S), 
XCA(S5) „YCA(5) „E1(4,4) „E2(4,4) „ES(4,4) „6% 
[23 
1588 DIM LE$(256) ‚LO$(18) „PE1(4,4) ‚PE2(4 
»4) ‚PES(4,4) „SE1(4,4) „SE2(4,4) „SE3(4,4): 
C3=218:04=217 
1578 RESTORE 1638 
162 FOR Z=1 TO 14 
1618 READ WıLO$(Z,ZI=CHRS(W) 
1628 NEXT Z 
1638 DATA.28,22,58,59,61,125,125,127,127 
‚126,126,62,60,28 

ENDPROC 


ZYZYzyanuuusı 


PROC INIT 

PB=PEEK (186) -32:POKE 54279,PB 
PMB=PB*256: POKE 559,62 

FOR Z=532554 TO 53259:POKE Z,@:NEXT 


1788 FOR Z=1824 TO 1792 STEP 256:MOVE AD 
R(LE$) „PMB+Z,2S6:NEXT Z 

1718 POKE 784,36:POKE 785,C0:POKE 796,14 
ıPOKE 797,14 

1728 ENDPROC 

1730 -—- 

1742 PROC STARTKO 


106 


1758 XA(1)=91:XAlZI=155:XA(3 
123: YAl1)=1Q3: YA(Z)=71:YA(Z 
1 

1768 XS(1)= 
2=3:YS(2 
1778 FOR Z=1 TO 4: YEA(Z 
1788 PE2(1,5)=1:PE2(3,3 


23: XAl4)= 
3: YA(4)=7 


XS(3)=3:X5(4)= 
ıYS(4)=1 

NEXT Z:S1 
»PE2(3,1) 


vst 


XCA(2I=13: XCA(ZI=9:XCA(H)= 
9:YCA(1)=19:YCA(Z)=6: YCA(TI=1B: YCA(4)=6 
1888 ENDPROC 

1818 — 

1828 PROC STARTKO_2 

1832 XAC1)=91:XA(DI=123:XA(FI=1S5:YAlL)= 
183: YA(2I=87: YA(3)=71 

1848 XS(1)=1:X5(2) 
De2:VS(D=1 

1858 FOR Z=1 TO 4: YEA(ZI=2:NEXT Z:5P=@ 
1888 PE2(1,5)=1:PE2(2,2)=1:PE2(3,1)=1 
1878 XCA(1)=5:XCA(2)=9:XCA(ZI=13: YCA(1)= 
19: YCA(ZI=8: YCA(FI=& 


S(3)= 


2YS(1)=3:YS( 


1992 PROC PMBAU 

1712 MOVE ADR(LO$) „PB+1224+195,14:MOVE 
ADR (LOS) „PMB+128@+YA(2) „14:MOVE ADR (LOS) 
„PMB+1535+YA (3) „14 

1928 MOVE ADR (LOS) „PMB+1792+YA(4) „14:POK 
E 53248,91:POKE 53249,XA(2)ıPOKE 53250,X 
ALZ):POKE 53251 ,XAca) 

1938 ENDPROC 

1948 — 

1959 PROC GEWINNER 

1968 FOR Z=1 TO 3 

197@ IF SE1(Z,1)=C AND SE1(Z,2)=C AND SE 
11Z,3)=C THEN G=1:EXIT 


SEZ(Z,2)=C AND SE 
21(Z,3)=C THEN G: 
1998 IF SES(Z,1)=C AND SES(Z,2)=C AND SE 
3(2,3)=C THEN G=1:EXIT 

2088 IF SE1(1,Z)=C AND SE1(2,Z)=C AND SE 
113,Z)=C THEN G=1:EXIT 

281® IF SEZ2(1,Z)=C AND SE2(2,Z)=C AND SE 
213,Z)=C THEN G=1:EXIT 

2020 IF SES(1,Z)=C AND SES(2,Z)=C AND SE 
3(3,Z)=C THEN G=1:EXIT 

2038 NEXT zZ 

2942 IF G=BD 

2852 FOR Z=1 TO 3:FOR ZZ=1 TO 3 

296® IF SE1(Z,ZZ)=C AND SEZ(Z,ZZ)=C AND 
SES(Z,ZZJ=C THEN G=1:EXIT 

2078 NEXT ZZ:NEXT Z 

2080 
2298 
2108 
2118 
212@ 
2138 


OKE 53247+Z,Q:NEXT Z 
»6$(1,5)="iredı":ELSE :6$(1,5 
NDIF 

2148 POSITION 7,19:? #6;6$(1,5) 

215® POSITION 0,20:? #65 "u. hasıwonan 
2168 POSITION 4,223? #65 "aauss PRESSASTA 


217@ ENDPROC 

zı80 — 

2198 PROC TITEL 

22808 GRAPHICS 7+16:POKE S59,B:POKE 756,P 


2212 COLOR 1:CIRCLE 48,59,20,48: COLOR 22 
CIRCLE 45,39,5,7 

222® COLOR 1:PAINT 49,50:COLOR 2:PAINT 4 
5,38 

2230 COLOR S:PLOT 57,7@:DRAWTO 159,78:DR 
AWTO 180,38:DRAWTO 57,38 

2240 PLOT 98,78:DRAWTO 78,38:PLOT 119,45 
:DRAWTO S9,45 

2250 PAINT 78,35: PAINT 62,68 
226@ COLOR 2:CIRCLE 132,20,8,12 
227@ COLOR 1:CIRCLE 128,16,1,1 
228@ COLOR 2:PAINT 130.20 

229@ FOR Z=0 TO 8 STEP ZıPLor Q, 


:DRAWTO 


159-287, Z:NEXT Z <IE> 
2500 TEXT 8,0,"STRATFIELD" <AH> 
231® TEXT 60,71,"VON":TEXT 49,81, "THOMAS 
«TENNERT" <AS> 
232® COLOR S:TEXT 40,89, "PRESS.START" <AX> 
2338 ENDPROC <as> 
2340 -- <uX> 
2358 PROC DIF <PI> 
236 CLS #6:6RAPHICS 1+16:0=1:POKE 756,P 
AGE <DH> 
237@ REPEAT <FB> 
2380 POSITION 4,5:? #6; "press“select-uu. 
«forschoosing«game=2":POSITION 9,8:? #65 
o <su> 
239® POSITION 4,13:7 #6; "PRESS-OPTION" <TH> 
2498 PK=PEEK (53279) <YP> 
241® IF PK=5 THEN 0=0+1:FOR Z=-88 TO 88 
STEP 8:SOUND @,ABS(6B+Z) ‚10,10: PAUSE S:N 
EXT Z:IF 0=3 THEN 0=1 <TP> 
2420 SOUND 2,2,0,8 <HL> 
2438 UNTIL PK= <KO> 
2440 ENDPROC <ox> 
2458 -- <uc> 
2462 PROC SOUND <39> 
2478 DSOUND <JD> 
2480 TRAP 2480: RESTORE 2560 <Er> 
2499 READ H,L:P=P+1 <rz> 
2580 SOUND 8,H,1@,L:SOUND 3,255,12,15:S0 
UND 3,0,0,8 <cu> 
251@ IF P>24 THEN SOUND 2,60+L,12,2 <aE> 

<HR> 
253@ PAUSE 9:SOUND 2,0,8,2 <Iu> 
2548 IF PEEK(53279)=6 THEN DSOUND :P=@:E 
NDPROC <UR> 
2558 G0TD 2498 <u1> 
2560 DATA.188,7,76,8,71,9,81,18,2,0,91,8 

»76,9,2,8,188,7,96,8,91,9,81,18,8,0,91,8 
»76,9,0,0,81,9,91,8,96,7,81,7 <F6> 
2578 DATA-0,2,81,9,8,2,72,7,0,0,0,8,0,2, 
81,10,91,9,81,10,2,2,96,8,0,0,91,10,0,0, 

2,8 <HE> 
2580 DATA.96,18,91,9,108,11,0,0,96,11,91 

‚12,0,2,81,12,96,18,2,0,0,2, <SH> 
2598 ENDPROC <PO> 
2608 -- <UR> 
261® PROC CHSET <cI> 
2620 RESTORE 2450 <ON> 
2630 PAGE=PEEK (106) -32: CHS=PAGE#256 <UB> 
2648 FOR Z=® TO 26:READ CzFOR Z1=@ TO 7: 

READ A:POKE CHS+Z1+C#B,A:NEXT ZI:NEXT Z <IM> 
2650 DATA.SS,2,94,66,98,110,98,98,8 <HU> 
2660 DATA.34,0,60,76,76,98,98,110,0 <us> 
2670 DATA.35,8,94,78,76,96,102,126,8 <LC> 
2620 DATA.S6,0,72,66,798,78,110,108,0 <KT> 
269® DATA=37,8,94,64,96,118,96,110,8 <AB> 
2700 DATA.38,0,94,70,96,188,96,96,8 <CK> 
2718 DATA.3S9,0,94,64,96,110,182,126,8 <HD> 
2720 DATA.AB,2,66,66,110,98,98,98,2 <16> 
2738 DATA=41,0,16,16,24,24,24,24,8 <HQ> 
2749 DATA-43,2,70,72,112,108,98,98,0 <HR> 
2750 DATA.44,0,64,64,96,96,78,118,8 <xD> 
276® DATA.45,8,66,86,186,106,98,98,0 <HP> 
2770 DATA-46,0,82,90,106,106,118,182,98 <an> 
2780 DATA.47,08,60,70,102,182,98,60,0 <SF> 
2798 DATA.48,8,72,79,122,108,96,96,8 <LR> 
289® DATA.SQ,0,72,66,98,108,98,98,0 <uv> 
2812 DATA.51,2,62,70,112,14,98,124,8 <ug> 
2820 DATA.52,0,126,22,16,24,24,24,0 <UK> 
2838 DATA.SS,8,66,66,78,98,118,46,8 SXC> 
2840 DATA.54,0,98,98,66,36,52,8,8 <X2> 
2850 DATA.55,2,72,79,66,90,60,36,8 <vD> 
2862 DATA.56,2,2,8,2,16,0,0,0 <B> 
287® DATA.57,255,254,252,248,249,224,192 

„128 <#0> 
2888 DATA.58,1,3,7,15,31,63,127,255 <RL> 
2898 DATA.17,9,24,24,24,24,24,24,24 <HI> 


29@® DATA-18,126,195,196,2,12,48,195,255 <HR> 
2918 DATA.2,2,0,0,2,2,2,2,2 <aH> 
2720 ENDPROC <PB> 
Stratfield, ein fesselndes Denkspiel für zwei Spieler 
(Schluß) 
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Ein Käfer auf Wanderschaft 


Damit der kleine Käfer im großen Labyrintn am 
Leben bleibt, muß er Nahrung finden und vor den 
gefährlichen Wächtern fliehen. 

er Käfer Karl lebtin einem großen unübersichtlichen 

Labyrinth. Er muß die ganze Zeit herumlaufen, um 

Nahrung zu finden. Diese liegt in Form von kleinen 
roten Quadraten überall verstreut herum. Es befinden sich 
aber auch andere Sachen in den Gängen. Herzen bringen 
Ihnen Punkte ein, wenn Sie den kleinen Käfer steuern. 


ENEEENGER Duunnnl 


u u. 


Ein Teil des Labyrinths bei Wandering 


‚Alles andere ist für Karl lebensgefährlich. Er darf weder die 
Wände berühren, noch sich von den umherstreifenden 
Wachen erwischen lassen. Eine Übersichtskarte zeigt an, 
wo die Wachen gerade sind. Wenn er nicht regelmäßig 
etwas zu essen findet, verhungert er. Die Balkengrafik zeigt 
an, wie groß Karls Nahrungsreserve ist. Die Wände passen 
sich der Zahl von Karls Leben an. Mit seinem drittenLeben _ 
kann er sogar durch die Wände hindurchlaufen, wenn er 
gut zielt. »Wandering« kennt zwei Schwierigkeitsstufen, die 
man mit der <SELECT >-Taste einstellt. Sie verändern nur 
die Punktegrenze, ab der Sie ein Extraleben erhalten. Auf 
Stufe 1 liegt die Grenze bei 1000 Punkten, auf Stufe 2schon 
bei 10000 Punkten. 

Wenn Sie das Spiel anhalten wollen, drücken Sie die 
<OPTION >-Taste. Um das Spiel fortzusetzen, genügt ein 
Druck auf die <SELECT>-Taste. Die <START>-Taste 
beendet das laufende Spiel. 

Wenn Sie das Programm starten, dauert es rund zwei 
Minuten, bis die Daten gelesen sind. Bitte warten Sie 
solange, selbst wenn sich auf dem Bildschirm nichts tut. 


(Holger Winkler/gn/hf) 
Steckbrief 
Programm: Wandering 
Sprache: eingebautes Basic 
Eingabehilfe: Prüfsummer 
Datenträger: Kassette, Diskette 


1 REM *** HOLGER WINKLER er 

2 REM «*® GERMANENSTR.96 x 

3 REM «x 4698 HERNE 1 

18 GRAPHICS 7:POKE 559,8:DIM LAST(1),HIG 

H(1):FOR I=1 TO 14:READ WERT,J:POKE WERT 
„J:NEXT I:FOR I=26632 TO 1+15 

2® READ WERT,J:POKE I,WERT:POKE 1+88,J:N 

EXT I:SOUND 1,8,0,2:FOR 1=26888 TO 1+773 
:READ WERT:POKE I,WERT:NEXT I 

38 POKE 623,16:POKE 87,15:POKE 88,8: POKE 
89,144: POKE 785,15 

5® FOR I=28674 TO 1+79:POKE 1,65:POKE I+ 

88,65:POKE I+169,65:POKE 1+5609,65: POKE 

1+3682,65:POKE I+376B,65:NEXT I 

68 FOR 1-28914 TO 1+3288 STEP 80:FOR J=@ 
TO 7:POKE 1+J,65:NEXT J:FOR J=72 TO 79: 

POKE 14J,65:NEXT J:NEXT I 

80 FOR I=® TO 7:POKE 35945+1,PEEK (26931+ 
I)zNEXT I:FOR A=1 TO 117:READ WERT,J:FOR 
1=28922+WERT TO I+J:POKE 1,2 

98 NEXT I:NEXT ArFOR A=1 TO B81:READ WERT 
„JıFOR 1=28922+WERT TO I+J*82 STEP 88:PO 

KE I,2:NEXT I:NEXT A 

198 LAST(@)=BzLAST (1)=B:HIGH(B)=Q:HIGHCI 
)=®:POKE 29614,0 

11@ FOR 1=27994 TO I+471:READ WERT:POKE 
I,WERT:NEXT I:FOR I=32582 TO I+15:POKE I 
„129:NEXT 1:60SUB 2289: 60SUB 3198 

12@ POKE 1571,3:POKE S56@,0:POKE 561,156: 

FOR I=® TO S:POKE 48511+1,PEEK(32576+1)+ 
16:POKE 32576+1,16 

132 NEXT I:1=4:SETCOLOR 8,1,8:SETCOLOR ı 
„1,122SETCOLOR 2,1,4:SETCOLOR 3,7,4:POKE 
756,152:605UB 2918 

14® POKE 512,227:POKE 513,159:POKE 54286 

„192:POKE 559,62:FOR I=® TO 7:POKE 53248 

+I,@sNEXT I 

150 I=PEEK(S3279:IF I=5 THEN 3498 

160 IF 1<>6 AND PEEK(644)=1 THEN 158 

189 GOSUB 2978: POKE 28222,3- (PEEK (48593) 

=34) 


<HH> 
<JA> 
<sH> 


<FH> 


<HT> 


<ss> 


<HT> 


<DX> 


<NP> 


<PI> 


<R6> 


<BH> 


<PO> 


199 POKE 54286,64:POKE 559,@:POKE 512,38 
:POKE 513,125:POKE 798,154:POKE 710,56:P 
OKE 711,76:POKE 756,224 

280 POKE 709,222:POKE 284,B:POKE 295,28: 
POKE 286,8:POKE 297,29: POKE 54276,8:POKE 
54277,8:POKE 53248,126 

285 POKE 1575,62: I=USR (34868) :POKE 36293 
„1:POKE 1576,20:POKE 15987,1:POKE 1588,4: 
POKE 1589,16:POKE 1599,64 

287 FOR I=® TO S:POKE 1585+1,@:NEXT I 

21® RESTORE 1298:FOR I=153& TO I+32:READ 
WERT:POKE I,WERT:NEXT I:RESTORE 6898:FOR 
1=26888 TO I+34:READ WERT 

228 POKE I,WERT:POKE I+5792,129:NEXT I:I 

=USR (28284) :POKE 53278,8:POKE 32568,115: 
POKE 32569,99:POKE 32573,98 

23® POKE 3257@,111:POKE 32571,114:POKE 3 
2572,1@1:POKE 568,8:POKE S61,185:POKE 55 


<UK> 


<KT> 


<RH> 
<GE> 


<KN> 


<BR> 


9,62:POKE 54286,192 <BB> 
2355 POKE 35761,85:60SUB S@2@:POKE 538,1: 
GO0SUB 2978 <PI> 
248 I=PEEK(53279):IF I=& THEN POKE 1571, 
2:60T0 278 <FS> 
245 IF I<& THEN POKE 538, (1=5) <10> 


259 POKE 32562, (INT (PEEK (1571) /1@))+16:P 
OKE 32565, (PEEK (1571) - (PEEK (32562) -16) #1 


D+1& <HE> 
255 IF PEEK(1571)>PEEK(1582) THEN GOSUB 

2978 <BA> 
260 IF PEEK(1568)=9 THEN 248 <S6> 


278 POKE 538,8: SOUND 2,8,2,8:SOUND 3,8,8 
„B:SOUND 2,8,2,@:FOR I=1 TO S:SOUND 1,20 
2,18,18:FOR J=1 TO SQ@:NEXT J 

28@ SOUND 1,0,2,2:FOR J=1 TO 25@:NEXT J: 
NEXT IzIF PEEK(1571)=® THEN POKE 559,2:6 
0TO 128 

298 POKE 559,8:50T0 228 

498 DATA.718,56,711,74,512,38,513,105,54 
286,192,552,18,553,196,788,122,115,2,116 
»8,53774,0,53277,3,704,22,54279 


<FL> 


108 


S@® DATA.136,255,0,255,0,255,0,255,24,25 
5,24,255,0,255,0,255,0,170,0,127,0,254,4 
8,127,124,254,56,127,16,254,9,85,8 

60@ DATA.112,112,2,7@,50,127,128,16,6,0, 
112,119,98,118,119,178,118,119,2,119,119 
„82,119,119,162,119,119,242 

61@ DATA.119,119,66,120,87,146,120,129,8 
„136 

62@® DATA.72,169,194,141,9,212,173,39,6,7 
6,177,118,8 

638 DATAA18,4,14,14,21,14,14,21,21,14,14 
»21,14,14,4,18,8,5,42,31,31,42,5,0,2,48, 
21,62,62,21,48,8 

648 DATA-18,4,14,38,5,14,14,21,21,14,14, 
5,38,14,4,18,8,5,42,31,31,42,9,2,0,36,21 
»62,62,21,40,8 
650 DATA.18,4,14,3@0,5,14,15,28,28,15,14, 
5,38,14,4,18,8,6,42,31,31,42,9,0,0,36,21 
»62,62,21,24,8 

660 DATA-18,4,14,31,4,14,15,20,2@,15,14, 
4,31,14,4,18,8,18,42,31,31,42,10,0,0,36, 
21,62,62,21,20,2 

678 DATA-10,4,14,31,4,14,31,4,4,51,14,4, 
31,14,4,10,0,10,42,31,31,42,10,8,0,20,21 
,62,62,21,20,8 

688 DATA.169,12,133,288,169,195,133,289, 
162,8,160,0,165,114,208,19,165,293,24,21 
6,113,288,145,228,144,8,1679,2,20@ 

698 DATA2113,288,145,208,136,165,114,248 
„18,177,208,216,56,229,205,145,208,176,8 
„200,177,288,253,8,145,208,136 

782 DATA.220,200,200,202,208,296,96 

718 DATA.1659,88,133,2903,133,114,173,12@, 
2,72,2@1,14,2@8,21,165,204,24Q,4,198,224 
‚16,13,165,295,249,9,169,15,133 

728 DATA.284,32,211,1@5,198,205,169,0,13 
3,114,1@4,72,2@1,13,2@8,25,165,2904,201,1 
5,176,4,239,284,16,15,165,205,281 

738 DATA-48,176,7,169,0,133,204,32,211,1 
05,230,205,169,1,133,203,133,114,1@4,72, 
291,11,208,25,165,296,291,7,176,4 

7498 DATA-230,206,16,15,165,207,2@1,62,17 
6,9,169,8,133,206,32,211,185,230,207,169 
‚„@,133,114,184,2@1,7,288,21,165 

75® DATA.206,240,4,198,2906,16,13,165,207 
‚240,9,169,7,133,206,32,211,1905,198,207, 
165,294,141,5,212,165,206,141,4 

755 DATA.212,169,8,141,3,210,173,12@,2,2 
01,15,240,85,168,4,162,0,74,176,1,232,13 
6,208,249 

768 DATA.202,288,71,173,120,2,162,255,74 
„232,176,252,138,166,115,232,232,232,232 
»224,20,144,2,162,0,134,115 

778 DATA.24,216,181,115,170,240,7,169,0, 
24,1905,3,202,228,252,172,168,0,189,51,18 
5,153,1@5,140,232,200,192,8,144 

782 DATA244,230,116,165,116,74,144,18,1 
69,164,141,3,218,169,228,141,2,21@ 

798 DATA.162,0,32,8,189,162,1,32,8,129,1 
62,2,32,8,109,162,3,32,0,189,238,24,6,17 
3,24,6,201,8,144,3,32,73,189 

820 DATA-173,10,210,133,119,173,10,218,2 
21,113,144,249,201,126,176,245,133,12@,1 
60,0,177,119,208,19,169,139,166 

819 DATA-29,224,253,176,2,169,284,145,11 
9,224,245,176,3,152,145,119 

820 DATA«173,4,208,201,4,144,76,169,112, 
133,120,169,62,56,216,229,207,24,105,258 
„144,2,230,120, 166,295 

838 DATA.72,165,204,201,8,144,1,232,184, 
232,202,2490,10,24,105,80,144,2,238,128,2 
@2,208,246,166,206,224,3,133,119 

842 DATA-176,9,165,119,24,185,1,144,2,23 
2,120,133,119,169,2,168,177,119,242,238, 
291,138,144,4,169,0,145,119 

850 DATA.165,20,208,26,174,31,6,169,8,15 
7,70,127,206,31,6,16,3,258,32,6,169,168, 
141,3,210,169,7@,141,2,21@ 

869 DATA«173,4,208,201,4,208,5,169,5,141 
„33,6,173,33,6,240,31,206,33,6,238,31,6, 
169,129,174,31,6,224,16,144,5 


<NN> 


<DX> 
<UK> 


<6U> 


xyYu> 


<IX> 


<TH> 


<NJ> 


<EP> 


<X6> 


<ZK> 
<HT> 


x<Hc> 


zEE> 


<1T> 


<IT> 


<KK> 


<MO> 


<um> 


<uX> 


<cu> 


<BV> 


<AS> 


<La> 


<Ay> 


<ur> 


<Ip> 


<CH> 


<AaL> 


878 DATA-162,15,142,31,6,157,78,127,141, 
2,210,169,166,141,3,218,32,18,11@ 

888 DATA.141,30,208,173,199,2,24,185,16, 
141,199,2,76,66,136,96 

I90Q DATA.20,0,29,7,81,9,94,6,182,5,191,4 
‚243,5,253,5,262,3,275,0,353,2,414,13,49 
9,2,573,4,583,6,661,2,723,3 

918 DATA.734,3,741,2,821,2,882,1,885,2,8 
91,3,898,1,965,2,974,0,978,5,1043,4,1852 
„0,1123,8,1132,12,1283,3 

915 DATA.1212,1,1295,0,1297,6,1361,7,137 
1,4,1459,3,1529,18,1532,4,1618,8,1935,8 
928 DATA.S15,2,679,24,745,9,841,21,908,8 
‚1288,10,1014,6,19069,18,1895,5 

932 DATA.1163,6,1227,14,1254,4,1325,6,13 
85,3,1398,5,1397,6,1415,4,1552,3,1557,8, 
1573,5,1681,18,1694,1,1847,8 

948 DATA-1731,9,1774,14,1792,5,18492,3,18 
93,7,1939,7,17948,11,2059,8,2095,4,2101,3 
„2118,9,2213,9,2255,4,2261,5 

958 DATA-2268,2,2274,3,2356,1,2371,9,248 
5,8,2417,7,2514,5,2522,18,2564,18,525,17 
»367,3,374,8,216,4,54,6,148,8 

9768 DATA22672,9,2683,19,2725,15,3868,2,2 
834,26,2889,11,2925,15,3226,6,2995,8,385 
1,11,3885,15,3201,4 

970 DATA3156,7,3209,15,3243,19,3314,7,1 
487,4,1647,2,1723,6,1885,3,2844,3,2285,3 
»2363,4 

1802 DATA.161,14,323,4,405,2,486,3,328,1 
2,170,16,12,9,1612,1,816,3,1377,3 

1218 DATA.579,3,180,2,182,0,187,2,189,5, 
271,5,433,2,1927,4,2809,4,1931,4 

1830 DATA.2221,15,1923,14,1765,7,2885,4, 
2887 ,5,2889,3,2015,4,2335,2,1857,2,2019, 
2,2828,8 

1842 DATA.2181,2,2662,4,2504,3,325,6,202 
6,2,2426,9,907,3,1468,3,2828,2 

1850 DATA2428,7,1470,5,2350,8,1632,1,21 
92,12,2354,1,2834,5,595,2,37,5,677,3,131 
7,8,1637,1,119,8,839,3,1719,2 

1860 DATA=2199,3,1161,8,1641,12,1243,1,1 
425,1,41,6,123,6,45,5,127,2,128,1,50,3,1 
32,4,134,2,142,2 

1878 DATA.1811,3,1811,6,1013,6,1973,2,1@ 
20,8,2460,0,3028,2,942,11,23@2,11,1571,1 
‚1983,6,1809,8 

111@ DATA.216,189,12,6,201,8,208,5,173,2 
4,6,16,10,201,2,228,23,169,7,56,237,24,6 
„24,125 

1122 DATA.8,6,168,169,8,153,24,184,169,2 
55,153,56,184,288,32,221,3,189,8,6,178,1 
60,8,176,12,30,24,104,62,56,184 

1139 DATA.232,136,208,246,249,19,94,24,1 
24,126,56,104,232,136,208,246,96,32,159, 
110,234,234 

1142 DATA.162,31,169,8,157,56,184,169,25 
5,157,24,184,202,16,243,162,255,232,189, 
8,6,153,117,189,4,6,133,118 

1158 DATA2169,9,160,2,145,117,189,16,6,1 
33,117,157,@,6,189,29,6,133,118,157, 
138,24,185,67,16@,2,145,117 

1155 DATA.149,25,6,165,28,197,19,176,5,1 
89,12,6,16,15 

1160 DATA.238,25,6,172,25,6,189,12,6,89, 
26,6,157,12,6,160,88,148,26,6,221,0,240, 
17 


1178 DATA.168,2,201,2,242,11,168,1,148,2 
6,6,281,3,176,2,160,0,1356,16,18,165,117, 
56,237,26,6,133,119,165 

1182 DATAs118,135,120,176,2,198,120,16,1 
6,165,117,24,189,26,6,133,119,165,118,13 
3,128,144,2,230,120,160,8,177,119 

1192 DATA.281,65,242,170,201,2,242,166,1 
65,117,157,16,6,165,120,157,28,6,138,24, 
185,71,168,8,145,119,224,3,176,3 

1282 DATA.76,95,189,96 

121@ DATA.173,4,288,201,2,208,3,238,34,6 
»175,34,6,240,49,173,68,127,281,17,169,2 
1,144,2,169,16,141,68,127 


<Ty> 


<aR> 


<PD> 


<cA> 
<xc> 


<RL> 


<H6> 


<I> 


<HF> 


<S$> 


<zv> 
<ZD> 


<IT> 


<I6> 


<HA> 


<Zc> 


<ZN> 


<PX> 


<RN> 


<aL> 


<EK> 


<sU> 


<LP> 


<oNn> 


<6F> 


<DZ> 


<u6> 


<FX> 
<PS> 


<B6> 
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1229 DATA.162,3,144,18,254,64,127,189,64 
„127,291 ,26,144,8,169,16,157,64,127,282, 
16,238, 224,3,176,3,238,35,6 

1239 DATA.206,34,6,141,36,6,162,0,173,36 
„6,249,5,162,168,206,36,6,141,4,218,142, 
5,219,169,0,133,77 

124@ DATA.173,4,228,10,10,12,10,10,10,24 
@,3,238,32,6,173,32,6,240,8,169,5@,141,2 
6,2,206,35,6,96 

1252 DATA-184,169,113,133,128,168,8,132, 
119,177,119,201,65,240,8,201,2,240,4,169 
‚„8,145,119,290,298,239 

1262 DATA.230,120,165,120,2@1,127,144,23 
1,96 

1270 DATA.165,20,2@1,9,176,6,165,19,125, 
15,133,19,169,0,141,24,6,96,73,3,141,39, 
6,141,8,212,184 

1280 DATA-64,2,2,0,2,0,2,2,2,2,2,2,2,0, 
‚2,2,8,2,2,0,0,0,0,0,0,0,0,8,0 

1298 DATA.50,122,183,57,116,125,125,113, 
2,8,16,24,8,2,2,8,130,42,23,137,116,125, 
125,113,8,9,9,3,2,1,2,15,2 

200D REM #*** STARTBILD + 

2018 RESTORE 2208 

2040 FOR 1=39936 TO I+31:READ WERT:POKE 
I,WERTENEXT I 

2050 FOR 1=3892@ TO I+5948-1:READ WERT:P 
OKE I,WERT:NEXT I 

2060 FOR 1=39968 TO I+1@*4Q-1:READ WERT: 
POKE I,WERT:NEXT I 

2070 FOR I=40448 TO I+5*48-1:READ WERT:P 
OKE I,WERT:NEXT I 

2080 FOR J=Q TO 2:FOR I=487@1+J*48 TO I+ 
12:READ WERT:POKE I,WERT:NEXT I:NEXT J 
217@ FOR I=49928 TO I+26:READ WERT:POKE 
I,WERT:NEXT I:POKE 512,227:POKE 513,159: 


POKE, 54286, 192 

2188 RETURN 

219@ DATAx112,112,112,68,32,156,4,4,4,4, 
4,4,4,4,4,0,132,4,5,5,55,4,454,4,4,4,4,4, 


65,2,156 

2208 DATA.85,95,95,85,85,87,86,86,85,85, 
85,85,85,255,255,85,85,85,85,85,85,213,2 
13,213 

2218 DATA213,213,213,213,215,213,215,21 
3,213,213,85,85,85,85,85,85,85,170,170,8 
‚85,85,85,85 

2220 DATA.86,86,36,85,85,85,85,85,86,86, 
86,86,86,86,86,86 

2238 DATA.85,85,85,85,85,85,85,85 

2249 DATA=217,217,217,217,217,217,217,21 
7,217,217,217,218,213,213,213,255,217,21 
7,217,217,89,89,89,247 

2250 DATA-217,217,217,218,85,85,85,255 
2260 DATA.17@,213,213,213,223,217,217,21 
7,170,85,85,85,255,85,85,85,169,87,879,87 
»217,217,217,217 

2278 DATA-218,213,213,213,215,217,217,21 
7,217,89,89,89,217,217,217,217 

2289 DATA.169,217,217,217,217,217,217,21 
7,217,217,217,217,217,217,217,245 

2299 DATA-85,149,191,121,217,217,217,217 
„85,85,85,170,85,85,85,255,217,217,217,8 
9,89,121,1@1,147 

2500 DATA.169,89,99,89,245,85,85,85,85,8 
5,85,169,89,89,89,245 

2510 DATA-218,213,213,213,214,213,213,21 
7,170,85,85,85,255,149,101,89,86,213,117 
„93,87,85,85,95 

2328 DATA.85,149,101,89,89,217,121,89,21 
7,89,87,89,249,85,85,85,196,213,215,213, 
255,85,85,85 

2530 DATA.85,127,119,119,119,119,119,127 
,85,93,125,93,93,93,93,93,85,127,87,87,1 
27,117,117,127 

2549 DATA.85,127,87,87,127,87,87,127,85, 
119,119,119,127,87,87,87,85,127,117,117, 
127,87,87,127 

2350 DATAs8S,127,117,117,127,119,119,127 
„85,127,87,87,93,935,117,117,85,127,119,1 
19,127,119,119,127 


<ro> 


<aA> 


<HP> 


<XL> 


<RT> 


<FE> 
<HF> 
<Hu> 
<DZ> 
<HK> 
<AT> 
<aJ> 
<JD> 
<EF> 
<aL> 


<oT> 
<PU> 


<ac> 


<B2> 


<HX> 


<BT> 


<ZB> 


<H6> 
<Un> 


<HH> 
<Le> 


<AT> 


<IE> 
<DJ> 


<au> 


<SsP> 


<VH> 


<HK> 


<cz> 


236® DATA.85,127,119,119,127,87,87,127 
2378 DATA.85,191,181,1@1,1@1,1@1,121,125 
„85,85,85,169,153,153,153,170,85,85,85,1 
26,101,106,86,10& 

2382 DATA.85,89,89,106,89,89,89,89,85,85 
»85,1@6,101,181,121,126,85,85,85,186,1@2 
„182,182,126 

2390 DATA.85,85,85,89,98,89,89,89,85,85, 
85,196,102,126,101,106,85,85,85,85,98,85 
„90,85 

2422 DATA.85,191,101,106,192,122,122,182 
‚85,85,85,89,85,89,89,89,85,85,85,126,10 
2,186,86,90 

241@ DATA.85,85,127,119,119,127,117,117, 
85,85,117,125,117,117,85,85,85,127,119,1 
27,117,127,85,85 

2428 DATA.85,127,117,127,87,127,85,85,1i 
7,117,253,117,117,117,85,85,85,85,253,22 
1,221,255,85,85 


2,2,2,2,2,2,2, 
2,2,2,2,3 
251® DATAB,1 
2,2,2,2,2,2,2 
2,2,2,3,4 
2528 DATA.8,8, 
9,9,9,9,9,9,9 
9,9,9,4,4 
2538 DATA.8,8,9, 
‚„14,15,16,14,15, 
14,15,16,14,15,1 
2548 DATA.8,8,9,9,9 
’ 
» 


9,9,4,4 

2,9,10,10,7,18, 
18,7,18,18,9,10,10 9,10,10,19,9,1 
2,10,9,9,9,9,9,9,7 
255@ DATA.8,8,9,7, 


3 
Dan > u 


j3 


NSONNDEn 
UNSDN 


& 
rl 
Das 
58 
x 
08% 


NEuSE Ny-} 


PN 
= 
» 
> 
RI 
Ir 


32,9,4,0,0,0 
2658 DATA.2,® 
»49,42,49,46, 


” 
L 
2 


‚od 
HM} 
52,9,9, 


»RSuseünn 


I 


2648 DATA-1,2, 
265® DATA.8, 18: 
6,187,183,186,4 

2660 DATA47,6,6,6,6,6,6,6,636,6,6,5 

2988 DATA.168,172,162,72,173,224,159,141 
„18,212,141,22,208,173,225,159,141,23,20 
8,173,226,159,141,24,288, 194,64 

2918 A=5:J=@:WERT=B:FOR I=@ TO S:J=J+(PE 
EK (49511+1)-32) *18"A: WERT=WERT+ (PEEK (485 
51+1)-32) *1B"ArA=A-1:NEXT I 

2928 LAST (PEEK (49593)-33)=J: IF J<=HIGHP 
EEK (40393)-33) THEN RETURN 

2938 FOR I=® TO 5:POKE 42551+1,PEEK (4851 
1+I):NEXT I:FOR I=® TO 7:POKE 53248+1,0: 
NEXT I 

2935 HIGH(PEEK (48593) -33) =J:RETURN 

2940 DATA.2,8,170,127,254,127,170,8 


3b 


<UN> 


<cu> 


<OH> 


<NB> 


<NN> 


<XX> 


<LP> 


<oc> 


<XL> 


<vA> 


<yv> 


<00> 


<KN> 


<06> 


<VP> 


<YH> 


<EV> 


<xs> 


<0s> 


<aY> 
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2950 DATA.D,84,62,124,62,124,42,@ <ca> 
2968 DATA.170,127,254,127,254,127,254,85 <FT> 
297@ IF PEEK(1571)>3 THEN POKE 1582,PEEK 
(1571) :RETURN <99> 
2980 RESTORE 2930+PEEK(1571)*1@:FOR I=@ 
TO 7:READ WERT:POKE 2664®+1,WERT:NEXT I: 
POKE 7@8,58+32*PEEK (1571) <SH> 
299® POKE 1582,PEEK (1571) :RETURN <HZ> 
3080 RESTORE 3908 <HH> 
3218 FOR I=1 TO 8 <AF> 
3020 READ WERT:SOUND Q,WERT,12,1@:READ W 
ERT:FOR J=® TO WERT:NEXT J:SOUND 2,8,8,8 
:READ WERT:FOR J=B TO WERT:NEXT I <Zu> 
3858 NEXT IrRETURN <Ds> 
3048 DATA.99,10,5,99,18,5 <KH> 
3905@ DATA.99,15,5,122,20,15 <XX> 
306@ DATA.122,15,10,130,20,15 <ar> 
3878 DATA.138,28,15,148,58,5 <TK> 
31@@ POKE 34816,112:POKE 34817,78:POKE 3 
4818,2:POKE 34819,144:FOR 1=® TO 44:POKE 
1+34820,14:NEXT I <SF> 
311@ POKE 34865,65:POKE 34866,0:POKE 348 
67,185 <Hc> 
3128 COLOR 2:PLOT 47,45:DRAWTO 47,8:DRAW 
TO 37,@:POSITION 37,45:POKE 765,2:XIO 18 
„#6,2,0,"5:" <UH> 
3138 PLOT 122,45:DRAWTO 122,8:DRAWTO 112 
„@: POSITION 112,45:XIO 18,#6,9,0,"S; <HF> 
3148 PLOT 48,0:DRAWTO 111,0:PLOT 48,1:DR 
AWTO 111,1:PLOT 48,44:DRAWTO 111,44:PLOT 
48,45: DRAWTO 111,45 <v6> 
315@ COLOR 1:FOR I=® TD &3:FOR J=@ TO 41 <J6> 
316@ IF PEEK(28922+1+J*8@)=2 THEN PLOT I 
+48,J+2 <SX> 
317® NEXT JıNEXT I <uV> 
3199 RESTORE 3298 <KD> 
3292 DATA-104,162,92,138,157,0,1359,157,8, 
141 ,232,208,247,96 <ZK> 
321® FOR 1=54868 TO I+13:READ WERT:POKE 
I,WERTZNEXT I <Aap> 
322@ FOR I=34882 TO I+7S:READ WERT:POKE 


I,WERT:NEXT I 

323@ FOR 1=35972 TO I+184:READ WERT:POKE 
I,WERT=NEXT I 

329® RETURN 

3328 DATAx169,152,56,229,297,17@,165,206 
»2@1,4,144,1,202,165,20,74,74,176,2,162, 
@,142,1,208 

331@ DATA.173,48,6,24,105,177,170,169,8, 
157,8,141,165,205,141,49,6,24,185,177,17 
@,165,204 ,201,10,144,4,232 

3520 DATA2238,48,6,169,1,157,9,141,162,2 
»32,0,137,232,224,4,144,248 

3338 DATA.238,26,2,96 

335® DATA.189,20,6,56,233,112,141,42,6,1 
89,16,6,56,233,259,141,41,6,176,3,206,42 
»6,169,0,141,43,6,173,42,6 

3368 DATA.298,7,173,41,6,201,8@,144,19,1 
73,41,6,56,233,80,141,41,6,176,3,286,42, 
6,238,43,6,16,225 <s1> 
337@ DATA.169,95,24,199,41,6,157,4,208,1 
89,47,6,185,177,168,185,8,139,93,51,6,15 
3,9,139,173,43,6,157,47,6 

3382 DATA189,47,6,1905,177,168,185,9,139 
»93,51,6,153,8,139,96 

3488 POKE 40593,PEEK (48593) +1: IF PEEK(48 
593)=35 THEN POKE 40593,353 

341® WERT=LAST (PEEK (49593) -33) :A=PEEK (48 
s95) 

5428 J=HIGH (PEEK (48593) -33) 

3438 FOR 1=5 TO ® STEP -1 

3449 POKE 48516-1,INT(WERT/1®"I)+32:POKE 
40593 ,A* (I=INT (1/2) #2)+9#(I<>INT(1/2)%*2 
> <NK> 
3458 POKE 40556-1, INT (3/19@°1)+32 <Du> 
3468 WERT=WERT-((PEEK (48516-1)-32)#1@°I) <SU> 
3478 J=J-((PEEK (48556-1)-32)#19°1) <C6> 
348@ NEXT I:POKE 40593,A <BV> 
3499 IF PEEK(53279)<>7 THEN 3498 <GA> 
3S5@@ GOTO 158 <PH> 


<DHn> 


<oL> 
<QA> 


<uv> 


<vc> 


<UR> 
<S5a> 


<XF> 


<or> 
<AR> 
<Qs> 
<BH> 


<HE> 
<VE> 


»Wandering« (Schluß) 


Kampf um den Kriegsplaneten 


Nur mutige und reaktionsschnelle Piloten über- 
leben den mörderischen Flug über Bellum 2. 


er große Krieg zwischen Batarianern und ihrem 

D:#== Nachbarvolk, den Comaden, dau- 

erte schon 10 Jahre. Denis war nicht bereit, sein 

Leben irgendwo sinnlos zu vergeuden. Er wollte dem Krieg 
ein Ende setzen. 

Schon lange munkelte man von einem riesi 


n Kriegs- 


PONI:T om 
SBERRREER: 


»Arax«: Der Kampf beginnt 


planeten. Dorthin hatten sich die sieben Mächtigen der 
Comaden zurückgezogen. Wo sich dieser Planet befand, 
wußte niemand, genau wie niemand sagen konnte, ob das 
Gerücht der Wahrheit entsprach oder eben nurein Gerücht 
war. Denis glaubte dem Gerücht. 

Das sechs Planeten umfassende System um die kleine, 
blauweiße Sonne Bellum wurde allgemein als Heimat der 
Comaden angesehen. Dort vermutete Denis daher auch 
den Kriegsplaneten. Bevor er an seinem ersten Einsatzort 
angekommen wäre, desertierte er mit seinem Raumgleiter 
und nahm Kurs auf das Bellum-System. Dort erwartete ihn 
tatsächlich ein waffenstarrender Planet: Bellum 2. Aber war 
es der, von dem die Gerüchte sprachen? 

Hier beginnt Ihre Aufgabe. Sie fliegen an Denis Stelle 
über den Planeten, um sein Geheimnis zu enträtseln. Da- 
bei müssen Sie sich vor den Verteidigungsbasen in acht 
nehmen, die Sie unaufhörlich beschießen. Die Arax besitzt 
zwar einen Schutzschirm, doch mehr als fünf Treffer hältsie 
nicht aus. Die Belastung des Schildes macht sich auch 
farblich bemerkbar. Bei jedem Treffer wird der sonst dunkle 
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Schutzschirm heller und wenn er rötlich glüht, ist der näch- 
ste Treffer tödlich. 

Sie sind natürlich nicht wehrlos, denn die Arax verfügt 
über Bomben und eine Schnellfeuerwaffe. Die Bomben 
sind zwar schwieriger einzusetzen, dafür aber wirkungsvol- 
ler. Beim Abwurf schlagen sie genau dort ein, wo das 
Fadenkreuz vorher zu sehen war. Die Waffe wechselt man 
durch Druck auf die <SPACE >-Taste. 


Wenn Sie die <START>-Taste oder den Feuerknof des 
Joysticks in Port 1 drücken, beginnt das Spiel. 

Arax besitzt auch eine Pause-Funktion, damit Sie sich 
während des Spiels kurz erholen können. Mit der 
<ESC>-Taste frieren Sie alle Aktionen ein, bis Sie wieder 
den Feuerknopf drücken. 


Im Spiel erhalten Sie für jeden zerstörten Teil einer Basis 
100 Punkte und für eine komplett zerstörte Basis sogar 


Wenn Sie das Spiel starten, erscheint erst ein Titelbild. 1000 Punkte. (Martin Horst/gn/hf) 
Programmname :ARAX.COM 56 16 54 54 55 54 <DC> 85980:88 16 54 4C 4C 56 16 1& <DB> 
Länge 17992 Bytes 55 4C 55 4C 55 ac <ıD> 258@8:08 05 85 BS 85 85 85 85 <75> 

55 59 56 56 55 56 <SE> 8518:85 85 95 92 95 95 95 92 <55> 

54 05 55 85 4C 85 <ac> 2518:16 16 16 16 16 16 16 16 <28> 

@000:FF FF DS &C SF A7 28 24 <öF> 54 85 85 4C 85 4C <ıa> 16 85 85 85 <2n> 
@@08:44 32 16 16 16 1& 1& 16 <24> 56 16 54 54 AC 54 <69> 57 16 16 <F4> 
8818:16 16 51 52 52 52 52 52 <B8> 58 58 58 58 58 58 <1B> 85 85 85 <3A> 
8818:52 52 SS 164 51 52 52 52 <4B> 58 58 59 56 A4C 56 <B> 95 92 92 <13> 
0828:52 52 52 52 52 52 52 52 <FB> 54 85 05 4C 85 4C <DF> 16 16 16 <87> 
8028:52 52 52 52 52 52 52 52 <25> 54 85 55 85 4C 85 <C3> 05 85 85 <on> 
16 51 52 52 52 52 532 <39> 56 16 54 54 55 57 <CE> 16 16 16 <535> 

53 54 85 55 05 55 05 <SD> 58 58 58 58 Se 58 <82> 05 85 85 <ES> 

05 56 16 54 51 52 52 <32> 58 5a 58 59 SS 56 <27> 92 95 95 <6C> 

52 52 52 52 52 52 52 <85> 54 85 55 05 4C 85 <Sc> 16 16 16 <EF> 

52 52 52 52 52 52 53 <oc> 54 05 085 4C 85 4C <2A> 85 85 85 <F9> 

16 54 085 55 85 55 85 <D1> 56 16 54 54 57 SS <D®> 16 16 16 <F9> 

56 54 85 85 4C 05 AC <As> 4C 55 4C 55 40 55 <6C> 26 85 86 <B> 

85 56 16 54 54 51 59 <SF> 4C 55 4C 55 59 56 <6F> 95 92 92 <F6> 

55 4C 55 AC SS 4C 55 <EF> 54 85 85 4C 85 4C <28> sı 52 52 <78> 

55 AC SS AC 55 55 56 <F4> 54 05 55 85 55 85 <&D> 85 085 85 <28> 

16 54 85 985 4C 85 4C <BB> 56 16 54 57 58 S8 <2E> 25 96 85 <56> 

Ss 54 85 55 85 4C 05 <D7> s8 58 58 58 58 58 <09> 16 16 16 <AB> 

95 56 16 54 54 55 51 <74> 58 58 58 58 58 59 <22> 95 95 95 <83> 

32 52 52 52 52 52 52 <6E> 54 BS SS 85 SS 85 <a8> 54 4C AU <sa> 

52 52 52 52 53 55 56 <84> 57 58 58 58 58 58 <EB> 85 85 8BS <as> 

ı1& 54 85 55 05 4c 05 <78> 59 16 57 58 58 58 <ED> 85 85 85 <p2> 

56 54 85 85 4C 85 4C <77> 58 58 58 85 &S 85 <BE> 16 16 16 <66> 

85 56 16 54 54 4C 54 <65> 58 58 58 58 58 58 <F9> 72 AC 92 <E2> 

52 52 52 52 52 S2 52 <ı1B> 57 58 58 58 58 SB <Al> 54 AC 40 <53> 

52 52 52 53 56 4C 56 <BE> 16 164 16 14 1& 1& <cf> 05 85 85 <B5> 

16 54 85 8S 4C 085 4C <CB> 16 16 16 15 16 16 <62> 85 85 85 <Fa> 

56 54 85 55 85 4c 985 <28> 16 16 88 85 85 85 <66> 16 16 16 <79> 

05 56 16 54 54 55 54 <67> 16 16 16 16 16 16 <AF> 92 95 92 <FA> 

51 55 4C 55 40 SS AC <298> 16 16 16 16 16 16 <FD> 54 4C 4C <18> 

AU 55 53 56 56 55 56 <12> 16 16 16 16 16 16 <82> 85 85 85 <47> 

16 54 05 SS 85 AC 05 <68> 16 16 16 16 16 16 <6A> 05 085 05 <24> 

56 54 85 85 4C 85 4C <8C> 16 16 05 85 85 85 <96> 16 16 16 <BB> 

05 56 16 54 54 4C 54 <DB> 16 16 16 16 16 16 <15> 95 92 95 <c3> 

55 51 52 52 52 52 52 <Sf> 16 16 16 16 16 16 <A6> 57 58 58 <30> 

52 55 55 56 56 4C 56 <68> 16 16 16 16 16 16 <8A> 85 85 85 <BE> 

16 54 85 85 4C 05 A4C <S5D> 16 16 16 16 16 16 <B6> 08 85 85 <A8> 

56 54 85 55 85 4C 85 <37> 16 16 B8 05 85 85 <D6> 16 16 16 <DB> 

05 56 16 54 54 55 54 <IC> 16 16 16 16 16 16 <BF> 92 95 95 <3D> 

AC 54 Sı 55 AC S5 AC <c1> 48 49 AA 16 16 16 <C9> 16 16 16 <D2> 

53 56 4C 56 56 55 56 <09> 16 16 16 16 16 16 <D6> e5 85 85 <5C> 
8148:56 16 54 85 55 85 4C 95 <aa> 1& 16 16 16 16 16 <DE> 05 85 85 <64> 
8158:55 56 54 85 BS 4C 85 4C <DC> 16 16 85 85 85 85 <Es> 16 1& 16 <2E> 
2158:85 85 56 164 54 54 4C 54 <QA> 16 16 16 16 16 16 <62> 92 95 92 <16> 
8168:54 55 54 55 51 52 52 52 <F7> 4B AC AD 16 16 16 <38> 16 16 16 <1B> 
81688:53 55 S6 S5 56 56 AC 56 <FF> 16 16 16 16 16 16 <7A> 85 85 85 <ac> 
16 54 85 85 4C 85 4C <2C> 497 AA 16 16 16 16 <2C> 28 85 85 <2a> 
@178:05 56 54 BS SS 85 AC 85 <87> 16 16 BB B5 BS 85 <28> 52 53 16 <Ca> 
2188:55 85 56 16 54 54 55 54 <8D> 16 16 16 16 16 16 <ı@> 95 92 95 <2B> 
2188:54 4C 54 4C 54 IF 49 41 <2F> AE AF SB 16 16 16 <B4> 16 16 16 <B9> 
8198:56 4C 56 4C 56 56 55 56 <18> 0420:1& 16 92 16 16 16 16 16 <97> 85 85 85 <BC> 
2198:56 16 54 85 55 85 AC 05 <7a> 8428:16 4B 4C 4D 16 16 16 16 <77> 85 63 64 <CE> 
B1AB:55 56 54 85 85 4C 85 4C <6D> 8430:16 16 16 16 85 85 85 85 <358> 4C 56 16 <9B> 
B1AB:05 05 S6 16 54 54 AC 54 <7B> 8438:05 16 16 16 16 16 16 16 <B7> 972 95 40 <55> 
8188:54 55 54 55 54 42 4C 44 <88> 0440:16 16 16 16 16 16 16 16 <48> 16 16 16 <2B> 
81B8:56 55 56 55 56 56 4C 56 <35> @448:116 16 92 16 16 16 16 16 <DF> 05 085 85 <FC> 
@1C8:56 16 54 85 BS 4C 85 4C <FD> 8458: 16 4E 4F 5@ 16 16 16 16 <1®> B8 66 AC <82> 

B1C8:05 56 54 85 SS 85 AC 85 <12> 8458:16 16 16 14 08 05 05 85 <78> 4C 56 16 <36> 
81D8:55 85 56 15 54 54 55 54 <BD> 16 <61> 95 95 92 <97> 
01D8:54 AL 54 4C 54 45 46 47 <4A> 16 <2E> 16 16 16 <335> 
B1EB:SL AC 56 AC 56 56 55 56 <28> 16 <SF> 63 64 65 <82> 
B1EB:56 16 54 BS SS 85 AC 85 <2A> 16 <88> 85 69 &h <23> 
B1F0:55 56 54 85 85 ac 85 AC <Sc> 65 <20> 58 59 16 <F2> 
B1FB:BS 85 56 16 54 54 4C 54 <AB> 16 <@7> 92 92 92 <c2> 
02080:54 55 54 55 57 58 58 58 <37> 16 <98> 16 16 16 <B2> 
8208:159 55 56 55 56 56 4C 56 <DE> 16 <36> 66 4C 68 <C1> 
0210:56 16 54 85 85 4C 85 4C <BA> 16 <A8> 08 85 85 <CB> 
@218:05 56 54 85 55 85 4C 85 <61> 68 <FF> 16 16 16 <79> 
@220:55 85 S6 16 54 54 55 54 <2A> 16 <SF> 92 92 92.<S5F> 
@228:54 4C 54 57 SS AC 55 4C <SB> 16 <CcO> 16 16 16 <7E> 
8239:55 59 56 4C 56 56 55 56 <BD> 16 <28> 67 6A 6B <1C> 
8238:56 16 54 85 55 85 4C 85 <1c> 16 <Da> 85 85 05 <66> 
92498:55 56 54 85 85 4C 85 4C <cA> 6B <99> 86 16 86 <11> 
0248:05 85 56 16 54 54 AC 54 <18> 16 <34> 92 95 92 <oe> 
8250:54 55 57 58 58 58 58 58 <1C> 84 <SE> 16 16 16 <BD> 
@258:58 58 59 55 56 56 4C 56 <71> 16 <Aac> 85 85 85 <9E> 
8260:55 16 54 85 85 4C 85 ac <ın> 16 <78> 88 85 85 <1Cc> 
0268:05 56 54 85 SS 85 4C 85 <71> 85 <18> 85 05 88 <99> 
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@7AB:16 16 


BABa: 16 16 
QAIB:16 16 
BALE:AC 68 


16 
16 


16 
16 


16 
16 


16 


25 
05 
25 
92 
16 


as 
05 
as 
16 


E73 


<8E> 
<96> 
<BE> 
<Er> 
<AE> 
<EE> 
<6c> 
<EI> 
<24> 
<72> 
<7E> 
<7D> 
<Sc> 
<16> 
<1E> 
<a0> 
<29> 
<15> 
<3E> 
<a8> 
<58> 
<aa> 
<21> 
<asy 
<78> 
<ıa> 
<Dc> 
<> 
<CE> 
<BB> 
<38> 
<89> 
<EF> 
<19> 
<13> 
<37> 
<2E> 
<67> 
<51> 
<CB> 
<71> 
<a5> 
<ca> 
<7a> 
<EF> 
<32> 
<12> 
<89> 
<28> 
<38> 
<a2> 
<c1> 
<aE> 
<F7> 
<BA> 
<a2> 
<SB> 
<F9> 
<A2> 
<c1> 
<92> 
<11> 
<aa> 
<c9> 
<sc> 
<a9> 
<AB> 
<c2> 
<Fa> 
<A1> 
<E2> 
<sE> 
<an> 
<aa> 
<D7> 
<an> 
<EC> 
<aB> 
<an> 
<c7> 
<B8> 
<73> 
<a4> 
<65> 
<79> 
<66> 
<SD> 
<Scy 
<FF> 
<Da> 
<84> 
<as> 
<94> 
<ac> 
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2@819:58 
@B18:58 
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SSRRENERAS 


8 
[) 


NHERERELETRESTTEUTLTTHTLTERTELTRTREREETETTTEEITERTEÄLTERÄTGTTENTITTBRÄTTTTTRTTTTTEHERHAAG 
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BFS0:95 95 
QFS8:95 92 92 
BF6B:92 92 


@FAB:92 
BFBQ:92 
BFBB:92 
BFCB: 92 
BFC8: 92 


1889: 92 
1010:92 
1918: 95 
1020: 92 
1828: 95 
1030: 95 
1039: 95 
1840: 92 
1848: 95 
1050: 92 
1959192 
1068: 95 
1848: 92 
1970: 95 
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BTAESTINITREISRANNBANNAHTÄTÄHRÄNAATTISRHTTNRTATRSIHHARANANNÄRNERENNE 


DERERTRRREIIIERRERBERSERRIERTERSTERERDRISERREROIERSRIERERRTER 


SHBHHaRaBanNK 


<AB> 
<AB> 
<98@> 
<A6> 
<2F> 
<aa> 
<aB> 
<15> 
<ar> 
<SC> 
<35> 
<AD> 
<c5> 
<c3> 
<2B> 
<22> 
<ıa> 
<F3> 
<83> 
<a8> 
<3A> 
<54> 
<ac> 
<61> 
<Sc> 
<32> 
<61> 
<FC> 
<@B> 
<cAa> 
<7C> 
<83> 
<ES> 
<56> 
<35> 
<F9> 
<9C> 
<a5> 
<FA> 
<F7> 
<2B> 
<A2> 
<SF> 
<43> 
<Ar> 
<D3> 
<AB> 
<a9> 
<aa> 
<aD> 
<62> 
<ca> 
<c8> 
<D4> 
<24> 
<EB> 
<E6> 
<55> 
<36> 
<c7> 
<6E> 
<B6> 
<335> 
<BE> 
<FF> 
<37> 
<SB> 
<ıD> 
<aa> 
<30> 
<68> 
<17> 
<39> 
<SE> 
<13> 
<cc> 
<Sa> 
<a8> 
<ac> 
<70> 
<ER> 
<58> 
<9c> 
<acy 
<ER> 
<SE> 
<E7> 
<De> 
<as> 
<19> 
<ar> 
<97> 
<ır> 


19878:92 95 
1880:16 1& 
1088:4C 92 
1098:94 92 
1898:92 92 
18AB:92 92 
IMAB:16 16 
19B0:92 92 
1988: 16 94 
1900: 16 92 
10C8:16 92 
18D0:16 16 
1908: 92 92 
1BEB:16 16 
1BE8:16 16 
1@F0:16 16 
19F8:16 16 
1188:16 16 
11@8:16 16 
111@:16 16 
1118:16 16 
112@:16 16 
1128:16 16 
1138:1& 16 
1138:16 16 
1148:16 16 
1148:05 
1158:52 


11DB:4C 
11D8:05 
11E8: 85 
N1EB:@S 
11F0:58 
11F8:58 
1280: 25 
1208: 05 
1218: 05 
1218:85 
1220: 85 
1228: 05 
1238: 85 
1238: 84 
1249:94 


12D8:85 
12E0: 95 
12E8: 05 


BEAHABHAHRABBAKFSEHAHEHAHAKHHRHAHHHAFSSRAATHHBABHREHBARBAAAHHHBABFANNE 
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SASBSBNARHIHBRUKFASTERETLLHERBNHFAHABSETRRRABARATERABSAAHHKAHHBTABHHHNGE 
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SBRRBABRSARKNTIRACHHENAHHNTARARLAFARERERTIBARARHHEHABABAEHFAFHAEHANTAEN AR 
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EIER EEREITEISITEREITEREREPEREEETESSSTTTERTERERTERFIETETTETETTITETN 


Er 


<2C> 
<BB> 
x73> 
<Acy 
<21> 
<6r> 
<a8> 
<1D> 
<98> 
<57> 
<C7> 
<Ba> 
<D5> 
<12> 
<87> 
<ar> 
<16> 
<29> 
<28> 
<F1> 
<38> 
<a0> 
<46> 
<a£> 
<36> 
<2F> 
<B6> 
<E9> 
<62> 
<82> 
<an> 
<E1> 
<88> 
<F5> 
<an> 
<B2> 
<FB> 
<AB> 
<DF> 
<D2> 
<Da> 
<29> 
<s8> 
<ES> 
<FA> 
<@1> 
<53> 
<BD> 
<26> 
<24> 
<2C> 
<2C> 
<ıc> 
<42> 
<ac> 
<aD> 
<ac> 
<64> 
<Sc> 
<77> 
<38> 
<7C> 
<88> 
<92> 
<98> 
<BR> 
<Aa> 
<A6> 
<7A> 
<Da> 
<48> 
<35> 
<TC> 
<FE> 
<69> 
<97> 
<29> 
<CB> 
<28> 
<BA> 
<cc> 
<2B> 
<22> 
<76> 
<an> 
<39> 
<aE> 
<48> 
<sE> 
<sa> 
<bE> 
<76> 
<FD> 
<86> 
<aE> 
<a8> 


1398: 17 
13AB: 05 
13A8:05 
1380: 25 
15B8:05 
13C0:@5 
1508:05 
13D8:05 


15B8:64 
15C8: 85 


1568: 85 
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ı7 


ss 


<IE> 
<A9> 
<BE> 
<B6> 
<DD> 
<c6> 
<37> 
<EA> 
<25> 
<F8> 
<57> 
<Fa> 
<SB> 
<CE> 
<74> 
<16> 
<SF> 
<82> 
<C9> 
<78> 
<BC> 
<ZF> 
<38> 
<D9> 
<F1> 
<68> 
<99> 


<ac>- 


<C6> 
<7D> 
<c1> 
<D9> 
<18> 
<cA> 
<B6> 
<BB> 
<21> 
<an> 
<EB> 
<cD> 
<SB> 
<a6> 
<FB> 
<ic> 
<a6> 
<sA> 
<7a> 
<2D> 
<38> 
<1B> 
<ır> 
<53> 
<BC> 
<AE> 
<58> 
<aD> 
<c2> 
<AE> 
<aa> 
<er> 
<E6> 
<as> 
<97> 
<FE> 
<A8> 
<EB> 
<ar> 
<AD> 
<Da> 
<37> 
<A7> 
<BF> 
<38> 
<71> 
<65> 
<ac> 
<BA> 
<Aac> 
<EB> 
<CB> 
<Ir> 
<BD> 
<ac> 
<67> 
<54> 
<92> 
<58> 
<ED> 
<65> 
<6C> 
<Ta> 
<3c> 
<84> 
<ac> 
<a2> 
<Da> 
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1C18:16 
1C18:16 16 
1C28:16 16 


1C68:48 49 
IC7@:48 49 


16 


Er 


EITRTITERRERR 


5 


16 


16 


16 


ERERTETR 


&5 


16 


ERERLEITDIFRTR 


sör 


SEA aR 


95 


1C78:16 
1C80:95 
1C88: 16 
1690: 4B 
1C98:4B 
1CAR: 95 


1CEB:16 
1CEB:16 
1CF@:95 
1CF8:92 
1D88: 16 
1DB8:16 
1010: 16 
1018392 
1020: 95 
1028: 16 
1D38: 16 


1D78:92 
1D78:16 
1D88:54 
1D88:52 
1090: 4D 
1D98:95 
1DAB:16 
1DAB:S4 
1DB0:55 


IDF@:16& 
1DFa:54 
1E80:56 
1E@8:92 
1E18:95 
1E1B:16 


1F1B:16 
1F18:16 
1F20:16 
1F28:92 
1F38:95 
1F38:16 
1F42:16 
1F48:16 
1F58:95 
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24 24 04 80 41 94 <2B> 3958:57 58 Sa 58 59 92 95 92 <A9> 19 18 17 20 2m 00 08 <F3> 

08 52 52 52 52 52 <85> 3968:95 95 95 95 92 95 95 92 <EB> 23 2F 2D @D 21 32 34 <DF> 

52 52 52 52 52 52 <82> 3968:92 92 95 95 92 95 95 95 <AS> 33 2F 26 34 37 21 32 <E4> 

52 52 52 52 52 52 <37> 3970:92 92 95 95 92 95 92 95 <97> 20 20 20 Du an aa am <7B> 

52 52 52 52 52 52 52 <52> 3978:95 92 95 92 92 93 95 92 <E1> 32 29 34 34 25 2E 0@ <83> 

52 52 52 52 52 52 28 <18> 3988:95 95 92 92 95 92 92 92 <7F> 39 08 2D 2Q DO BR BD <D7> 

zo a0 a0 aa 33 25 2F <35> 3988:95 95 92 92 95 95 92 95 <C5> eo 28 2D 2ı 32 34 29 <32> 

25 IA 1@ 18 15 1@ 18 <FF> 95 95 92 92 92 <81> 80 28 ZF 52 33 34 @@ <B5> 

22 0a 2m aa 2a 2a Da <ac> 92 92 75 92 95 <9F> 20 20 2m 2a aa na Qm <ıa> 

37 25 21 38 2F 2E 1A <35> 92 92 92 92 95 <EB> 32 21 38 28 29 23 33 <ne> 

22 2F 2D 22 am 2a mm <45> 92 16 16 16 16 <DE> 22 37 20 20 20 Q8 Ba <cr> 

2m 20 BB am SS 28 29 <&2> 92 92 92 95 95 <2F> @8 92 29 2E 27 2F @@ <27> 

2C 24 1a C2 C2 C2 C2 <@2> 95 92 92 95 95 <EE> 25 28 2D 29 24 34 DO cas» 

c2 c2 C2 C2 02 C2 c2 <78> 1& 15 16 16 15 <c8> 20 28 ma 88 21 2E 24 <3D> 

c2 C2 C2 c2 c2 C2 C2 <58> 92 95 92 92 HS <H> 2D 21 32 54 29 ZE 00 <a5> 

C2 C2 cz c2 @8 28 om <r7> 16 16 16 16 16 <iR> 2F 32 35 34 08 QQ 23 <S6> 

zo 00 20 20 Da ma 80 <44> 16 95 92 92 95 <A2> 2D OD 21 32 34 090 33 <74> 

20 00 DO mo BO BO aD <ac> 16 16 1& 92 92 <72> 26 34 37 21 32 25 90 <7F> 

02 20 20 29 C2 C2 C2 <As> 1& 16 16 16 16 <99> 32 25 53 25 2E 34 33 <19> 

c2 C2 C2 C2 C2 C2 C2 <68> SIB:16 16 16 95 95 95 95 92 <C3> BE BE 28 DD 0D @D am <CE> 

C2 C2 C2 C2 28 @8 98 <sa> 39FB:92 16 16 16 16 16 16 16 <26> 32 21 58 80 @D aa @8 <Es> 

00 00 20 2a 22 DR DO <6E> 16 16 16 16 <32> 37 32 29 34 354 25 2E <BB> 

20 20 20 30 ma ma Du <76> 16 16 1& 16 <EB> ı@ 14 BE 18 17 88 22 <29> 

20 00 2a aa 95 92 92 <B7> 16 16 16 16 <B4> 98 20 21 32 34 29 2E <B9) 

95 95 95 95 92 92 92 <BB> 16 16 16 16 7C> 28 2F 32 35 54 GE 80 <an> 

95 95 95 95 54 48 49 <FO> 16 16 16 16 <94> 88 23 28 2ı 32 21 25 <AB> 

Ss 95 95 92 92 92 92 <a8> 16 16 1& 16 <B8C> 253 32 24 25 33 29 27 <B9> 

92 92 92 93 92 92 95 <De> 16 16 16 16 <A4> 28 22 39 00 29 2E 27 <cı> 

92 92 92 92 95 92 95 <AC» 16 16 16 16 <9C> @8 33 23 28 2D 29 24 <ar> 

95 51 52 52 52 53 95 <Sf> 16 16 16 1& <74> BE 28 88 2c 21 2E 24 <BE> 

95 16 16 164 16 4B 78 <S8> 16 16 18 16 <BC> 32 21 =@ 28 29 23 a0 <34> 

56 92 92 92 92 92 92 <LE> 16 16 16 16 <C4> 39 ©8 29 2E 27 2F 08 <29> 

Sı 52 52 52 SS 95 95 <E1> 16 16 1& 1& <AC> 253 28 2D 29 24 34 @@ <AF> 
AAPPS: 
118 SM ESTER 


EB: 16 
ZE48: 16 
3258: 92 
3ES8:16 
SE6B:16 


IF48:16 
IFSB:16 
IFS8: 16 


BELSTIFRERREFSTREFFTSTEEFSREFSFLFESESFEREIFEREREIEEPSIRRERESSEESIREPSERERIEREIE REDE SEER TEE FETT 


NUSHUHFSRRHELERNELTEÄTFLTANEREA 
BELRSAHERRREAERIHESSSEENNAR 


16 


E- 
16 


53 
5 


25 56 16 


4118:05 
s118:95 
4120116 
4128:55 
4132:16 
4138:55 
4148:57 
4148:16 
4150: 85 
A158:16 
4160:05 
4168:16 
4170:16 
4178:58 
4188:16 
4188:58 
4190:16 
4198:16 
#1AB:16 
41A8:16 
4188: 16 
41B8:7F 


4228: @2 
4230: 21 
4238:20 
4248: 95 
4249:56 
4258: AA 
A2SB: AA 
4260: AA 


III RIISTEISITETI TE 


IEREREITEFIHICHBAREFAHALNEN 


sı 


2 


BEMaSSHUSISHHEAEBSUBHBHTIBARS 
HUHSBUSAIAFSAURSITHAHEBLABSBERNBASBBNIESERBEÄTLEBTBASS 


Hss 


SERAICHRURSERBHHEKHANSSBEHHSHHHR 


HUHSBIERTSRASUBESHHUHEBERBHBANTBARBZEZESERÄBÄRLIESESTRTTEERERAINIEHHRHETETRBTETRAATHRERSFANDE TATEN 


FF FE FE 
SF CE CE 

SF CF CF 

F9 D6 Da 

79 D6 BA 

7C DF 87 

FF EEE SF 

AA CS Sc 

FF BB FC 

FF FE FE 

FF SE SE 

FF SF SE 

a9 95 95 

79 55 79 

58 58 78 

95 AS 2a 

99 99 aA 

58 68 As 

AE AB AR 

EE BB EE 

Er BF FF 

sa sa sa 

AFAF AR 

FS FS FS 

55 55 55 

Ar AF Ar 
En 

FS ED EB 

55 55 ss 

SF 76 FF 
A4SO:EA ER EA EA 
4458:AF AF AF AR 
AA6Q: FF FF FF FF 
AA6BLEA EA EA EA 
4470: AF AF BE CS 
AATB:FF FF FF FF 
4480:55 55 55 5A 
4488:55 55 AR AA 
4499:55 55 35 AS 
4498:A5 AS AS AS 
AApBsFF FE FA FA 
A4AB: SF IF SF SF 
44BQ:AS 69 69 6D 
GABB:AA 69 55 55 
44C0:5F 7D 7D FD 
AACHıFF EA EA E9 
44DO: FF AA AA 55 
44DB: FF AB AS 45 
G4E0:69 E9 E9 E9 
A4EB:FF FF EB BC 
AAFQSCS C3 C3 C5 
art EI 89 89 
aSQB: FF FF FF FF 
45@8:C3 C3 C3 C3 
451@:AR AA AA AF 
ASIB:AA AR FF FF 
4S2@:AR AR AA FA 
4528:DA F& FD FF 
ASSO:EB AR 96 96 
4538:37 5F 7F FF 
4549:95 ES B9 BA 
4548:7F 7F 7D FF 
4590: F6 DB 6E AE 
FF FF FE 

FF FF FF 

FFFF FE 

95 AA @2 

ss 59 

20 ar 

85 90 

14 a1 

52 06 

AB AE 

BB ED 

7a DA 

AE BA 

57 5F 

BE B2 

98 BB 

FF FO 

2E E2 

AA ar 

FF 96 

An Fa 

DS 09 

59 97 

DF SF 

BD B7 

SF FD 

7E FE 

ao a0 

20 a0 

eo @2 


»Arax« (Schluß) 


SE 


ar 


SNBSENBISAHHRBRARHERBFHRR 


REAREINTBASHSIATNAHSAITI 


ARABNIBHSHERRTAENNNES 


DS 


&6 


SESEZEBRHSINEKITARHAHIARSTHENUBNBBETBAGE 


9A 


FF 


BISEBBENIBIRSBBBRBERSENANFUTNRRBBBIHERESANNUNSAH SAH BEhNEn 


Im Inneren des Computers 


Um die Atari-Computer vernünftig programmie- 
ren zu können, braucht man die Entwicklungsun- 
terlagen von Atari. Da diese nicht mehr erhältlich 
sind, haben wir für Sie die kompletten Hardware- 
Programmierunterlagen zusammengestellt. 


sitzen vor Ihrem Computer und entwickeln Ihr neue- 

stes Programm. An einer Stelle muB das Programm 
unbedingt die Funktionstasten abfragen, wobei Sie in 
Basic den Befehl »PEEK« verwenden. Nur, welche Adresse 
muß beim »PEEK«-Befehl angegeben werden? Also geht 
die Suche nach Unterlagen los, in denen die Adressen der 
Funktionstasten stehen. Ganz nach dem Motto: »Da war 
doch mal was in einer Zeitschrift...«, oder: »Ich hab dadoch 
mal ein Buch gelesen...«. 

Es gibt nun eine ganze Menge Literatur über die XU/XE- 
Computer. Leider ist in keinem Werk der gesamte Compu- 
ter in allen Einzelheiten beschrieben. Das eine Buch 
behandelt zum Beispiel die Player-Missile-Grafik sehr aus- 
führlich, dafür sind die Soundregister eher spärlich erklärt. 
Ein anderes behandeit diese genauer, verliert dafür aber 
kein Wort über die Display-List-Programmierung. Um ver- 
nünftig mit dem Computer arbeiten zu können, braucht 
man also immer mehrere Werke. Dabei blättert man sich 
die Finger wund, bis man eine brauchbare Beschreibung 
gefunden hat. 


Ss icher kommt Ihnen folgende Szene bekannt vor: Sie 


‚Atari veröffentlichte nun im Jahr 1979 für die alten 400er 
und 800er Computer sämtliche Programmierunterlagen. 
Darin enthalten waren das komplette dokumentierte 
Betriebssystem-Listing zusammen mit dessen Benutzer- 
handbuch sowie ein umfangreiches Werk, das sämtliche 
Hardwarebeschreibungen der Computer enthielt. Mit Hilfe 
dieser Unterlagen ließen sich professionelle Programme 
schreiben. Diese Unterlagen sindjedoch heute leider nicht 
mehr erhältlich. Einige Glückliche besitzen sie noch und 
hüten sie wie ihren Augapfel. 

So kommt es, daß viele Programmierer gute Ideen 
haben, diese aber wegen mangelhafter Kenntnis über die 
Hardware der Computer nicht umsetzen können. Da Atari 
glücklicherweise mit den neuen Computern zu den alten 
Geräten so kompatibel wie möglich geblieben ist, lassen 
sich die Hardwareunterlagen der alten Geräte ohne grö- 
Bere Probleme auch für die XL/XE-Computer einsetzen. 

Wir haben für Sie auf den folgenden Seiten diese Unter- 
lagen zusammengestellt, um Ihnen ein umfassendes 
Nachschlagewerk in die Hand zu geben, und damit Sie 
fortan Ihren fantastischen Atari-Computer besser nutzen. 

Die Übersicht ist in verschiedene Kategorien für die ein- 
zelnen Bereiche des Computers aufgeteilt. Fettgedruckt ist 
dann jeweils der Name des Registers und, falls vorhanden, 
der des entsprechenden Schattenregisters. Darunter befin- 
det sich ein Kasten mit der Registeraufteilung. Ein graues 
Raster signalisiert ein nicht verwendetes Bit. Jedes 
benutzte Bit ist numeriert und wird im anschließenden Text 
erklärt. (hf) 


120 


Bildschirmsteuerung Br | Be | 55 | 84 | 83 | 82 | 51 | Bo 
PAL 53268 ($D014): Fernsehnorm DLISTH 54275 ($D402): High-Byte der Display-List- 
Adresse 
] B3 B2 B1 | ] Schattenregister: SDLSTH 561 ($231) 
D3 D2 Di 87 | so | 55 | s B3 | B2 sı | eo | 
@ 0 0 PAL (europäisches Fernsehsystem) Die Display-List ist eine Folge von Grafik-Instruktionen 
1.1. 1. NTSC (amerikanisches Fernsehsystem) für den ANTIC-Coprozessor. Diese beiden Speicherstellen 


Mit diesem Byte stellt ein Programm fest, obes aufeinem 
amerikanischen oder deutschen XU/XE-Computer läuft. 


VCOUNT 54283 ($D40B): Vertikaler Zeilenzähler 
B7 


B6 B5 BA 


ss | »2 | sı | © 


In dieser Adresse zählt der Computer die Bildschirmzeile 
mit, in der sich der Elektronenstrahl des Bildschirms 
gerade befindet. Zu beachten ist dabei, daß in VCOUNT nur 
jede zweite Bildschirmzeile gezählt wird. 

WSYNC 54282 ($D40A): Warte auf horizontales Synchron- 
signal 


Jeder Befehl des Mikroprozessors, in diese Speicher- 
zelle zu schreiben, hält den Computer für die Dauer einer 
Bildschirmzeile an. Die Daten, die in dieses Register 
geschrieben werden, sind ohne Bedeutung. 


DMACTL 54272 ($D400): DMA-Kontrollregister 


B5 B4 83 B2 B1 Bo ] 

B5 schaltet den ANTIC ein 

B4 wechselt die Auflösung der Player-Missile- 
Grafik. Wenn dieses Bit gelöscht ist, wird die 
zweizeilige Auflösung verwendet, sonst ist 
die einzeilige Auflösung eingeschaltet. 

B3 befiehlt dem ANTIC, aus dem Speicher 
Byte-Folgen ab der Adresse, die mit 
»PMBASE« definiert wurde, auszulesen und 
diese Byte auf dem Bildschirm darzustellen 
(Player DMA) 

B2 schaltet Missile DMA ein 

B1 BO Erklärung 

00 Bildschirmgrafik ist abgeschaltet 

Sen Es wird ein schmaler Bildschirm mit 128 
Punkten bei ANTIC-Mode 14 generiert 

IE Es wird ein normal breiter Bildschirm gene- 
riert 

a Es wird ein überbreiter Bildschirm mit 192 


Punkten beim ANTIC-Mode 14 generiert 
GRACTL 53277 ($D01D): Grafik-Kontrollregister 


EIEIEI 


B2 Bei gesetztem Bit wird ein Knopfdruck am 
Joystick zwischengespeichert 

B1 schaltet die Player ein 

BO schaltet die Missiles ein 


DLISTL 54274 ($D402): Low-Byte der Display-List-Adresse 
Schattenregister: SDLSTL 560 ($230) 


Eon 


bestimmen, an welcher Stelle die Display-List steht. Man 
sollte die Speicherstellen nur mit ausgeschaltetem 
VBLANK-Interrupt verändern, da sonst ein Interrupt auftre- 
ten kann, während nureine der beiden Speicherstellen ver- 
ändertist. Indem Fallsuchtder ANTIC in einem völlig unde- 
finierten Speicherbereich die Display-List, und der Bild- 
schirm fängt an zu flackern. 


CHBASE 54281 (D409): Startadresse des Zeichensatzes 
Schattenregister: CHBAS 756 ($2F4) 
40-Zeichen-Modus 


| B7 | ss ] B5 B4 B3 B2 | | 
20-Zeichen-Modus 
| er | B6 B5 B4 B3 B2 | Bi | | 


In CHBASE steht das höherwertige Byte der Adresse des 
Zeichensatzes. Je nach verwendeter Zeichensatzgrafik 
muß der Zeichensatz am Beginn einer 1-KByte- bezie- 
hungsweise 512-Byte-Grenze stehen. Die ersten 1 oder 
2 Bit von CHBASE werden automatisch auf 0 gesetzt. 


CHACTL 53273 ($D401): Steuerregister für den Zeichen- 
satz 
Schattenregister: CHART 755 ($2F3) 


B2 B1 BO 


B2 ‚Am Anfang einer Zeichensatzzeile wird 
dieses Bit abgefragt. Falls es gesetzt ist, 
werden alle Zeichen dieser Zeile auf den 
Kopf gestellt. 

Bi ist nur im 40-Zeichen-Modus aktiv. Falls 
dieses Bit gesetzt ist, werden alle Zeichen, 
deren Code ein gesetztes siebtes Bit hat, 
invers dargestellt. 

ist nur im 40-Zeichen-Modus aktiv. Falls 
dieses Bit gesetzt ist, werden alle Zeichen, 
deren Code ein gesetztes siebtes Bit hat, 
gelöscht. 


Bo 


HSCROL 54276 ($D404): Horizontales Scrollregister 
| [m 

Die Display-List-Zeile, in der die horizontale Scroll- 
Option eingeschaltet ist, wird zwischen O und 15 Bild- 
schirmpunkte nach rechts verschoben. Zu beachten ist 
dabei, daß eine Verschiebung um einen Bildschirmpunkt 
zwei Punkten in Grafikstufe 8 entspricht. 

Falls horizontales Scrolling eingeschaltet ist, werden auf 
dem Bildschirm mehrere Bytes für eine Zeile benötigt 
(siehe auch »DMACTL.). Eine Bildschirmzeile des schma- 


len Bildschirms benötigt dabei so viele Bytes wie eine Zeile 
des normalen Bildschirms. Eine Standardbildschirmzeile 
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SE 


50 ] 


benötigt so viele Bytes wie eine erweiterte Bildschirmzeile. 
Bei der erweiterten Bildschirmzeile erhöht sich bei einge- 
schaltetem horizontalen Scrolling die Anzahl der Bytes pro 
Zeile nicht. 


VSCROL 54277 ($D405): Vertikales Scrollregister 
16-Zeilen ANTIC-Befehle 


B3 | B2 | Bi BO 
8-Zeilen ANTIC-Befehle 
| 2 B2 Bi Bo 
4-Zeilen ANTIC-Befehle 
B1 BO 
2-Zeilen ANTIC-Befehle 
Bo 
—_1 
1-Zeile ANTIC-Befehle 
= B0 


Sämtliche Bildschirmzeilen, in der die vertikale Scroll- 
Option eingeschaltet ist, werden um die Anzahl der Zeilen, 
die in VSCROL definiert ist, nach oben geschoben. Die Zei- 
len werden ab dem ersten Display-List-Befehl, in dem die 
Option nicht eingeschaltet ist, nicht mehr verschoben. 


PRIOR 53275 ($DO1B): Priorität der Player/Missiles und 
Grafiken 
Schattenregister: GPRIOR 623 ($26F) 


[ B7 B6 B5 


B4 B3 B2 B1 


0 | 


normale Grafik 

Wie in Grafikstufe 9 stehen 1 Farbe in 16 Hel- 
ligkeitsstufen zur Verfügung. Die Farbe wird 
mit Register »COLBK« definiert. 

9 frei definierbare Farben stehen wie in 
Grafikstufe 10 zur Verfügung. Die Farben 
werden mit den Registern »COLPMi« bis 
»COLPM3« sowie »COLPFO« bis »COLPF3« 
definiert. Die Hintergrundfarbe wird mit 
»COLPM(0« festgelegt. 

‚Wie in Grafikstufe 11 stehen 16 Farben einer 

Helligkeit zu Verfügung. Die Helligkeit wird 
mit »COLBK« festgelegt. 

Alle drei Stufen funktionieren nur mit einem Computer, 
der einen GTIA eingebaut hat. Ältere 400er und 800er 
Modelle hatten noch einen CTIA, bei dem diese Grafikstu- 
fen nicht funktionieren. Bei diesen Grafikstufen werden 
jeweils 4 Bildschirmpunkte des ANTIC-Modes 2, 3 oder 15 
genommen und zu einer Farbe zusammengefaßt. Deshalb 
haben diese Bits auch nur in diesen Grafikstufen eine Wir- 
kung. ANTIC-Mode 2 entspricht Grafikstufe 0 und ANTIC- 
Mode 15 Grafikstufe 8. ANTIC-Mode 3 ist im Basic und im 
Betriebssystem nicht eingebaut. 

B5 Multi-Color Player-Bit. Falls dieses gesetzt 
ist, werden die Farb-Bits von Player O0 und 
Player 1 sowie von Player 2 und Player 3mit 
Exklusiv-Oder verknüpft. Auf diese Weise 
lassen sich in den Players 3 Farben dar- 
stellen. 
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B4 


5. Player-Bit. Mit diesem Bit werden die Mis- 
siles 0 bis 3 zu einem Player zusammenge- 
faßt. Die Farbe dieses Players wird mit 
»COLPF3« bestimmt. 


B3 - BO Prioritäten der Player. Je nach dem gesetz- 
ten Bit wird ein Player von einem anderen 
oder von der Bildschirmgrafik verdeckt. Die 
Bits haben folgende Prioritätsreihenfolgen: 

B3=1 B2=1 Bi=1 BO=1 
Fo PFO PO PO 
Fi Fi P1 P1 
PO F2 FO P2 
P1 F3+P5 Fi P3 
P2 Po F2 Fo 
P3 P1 F3+P5 Fi 
F2 P2 P2 F2 

F3+P5 P3 P3 F3+P5 
BAK BAK BAK BAK 


»P« bedeutet Player und »F« Farbe. Die obersten Ta- 
belleneinträge sind dabei jeweils vor den untersten aufdem 
Bildschirm zu sehen. Falls Bit 3 gesetzt ist, verdeckt Player 
3 also Farbe 2, während bei gesetztem Bit 2 Farbe 2 Player 
3 verdeckt. Sind mehrere der Bits 0 bis 3 gesetzt, so wird 
auf dem Bildschirm der Bildschirmpunkt auf schwarz 
geschaltet, bei dem beide Fälle erfüllt sind. 


COLPFO 53270 ($D016): Farbregister 
Schattenregister: COLORO 708 ($2C4) 


COLPF1 53271 ($D017) 

Schattenregister: COLOR1 709 ($2C5) 

COLPF2 53272 ($D018) 

Schattenregister: COLOR2 710 ($2C6) 

COLPF3 53273 ($D019) 

Schattenregister: COLOR3 711 ($2C7) 

COLBK 53274 ($D01A) 

Schattenregister: COLOR4 712 ($2C8) 

Mit B7 und B6 des Registers »PRIOR« gelöscht: 


| B7 | B6 | B5 B4 | B3 B2 B1 


Mit mindestens einem von B7 oder B6 des Registers 
»PRIOR« gesetzt: 


| B7 B6& B5 B4 83 B2 B1 BO 
B3 - BO bestimmen die Helligkeit einer Farbe in 8 
beziehungsweise 16 Stufen. B7 bis B4 
bestimmen den Farbton. 

B7 B6 B5 B4 Farbton 

0 0 0 0 Grau (von Schwarz bis Weiß) 

0 0 0 1  Dunkelorange 

0 0 1 0 Rotorange 

02 SO si eERor 

0 1 0 0 Violett 

0 1 0 1 Violettblau 

0 1 1 0 Blauviolett 

0 1 1 1 Veilchenblau 

10 0 0 Blau 

1.0 0 1  Königsblau 

0717 10.Grün 

10 1 1  Sattgrün 

1 1.0 0 Grüngelb 

ı 1 0 1 Olive 

1 1 1 0 Braunorange 

1 1 1. 1. Dunkelorange (wie Kombination 0001) 


Player und Missiles 


PMBASE 54279 ($D407): Startadresse des Player-Missile- 
Speicherbereichs 
Bei einzeiliger Auflösung 


B7 B6 


35 | 5: | 53 


Bei zweizeiliger Auflösung 


B7 B6 B5 B4 | B3 B2 


Der Speicherbereich der Player-Missiles muß je nach 
Auflösung an einer 2-KByte- beziehungsweise 1-KByte- 
Grenze liegen. 


VDELAY 54276 ($D01C): Verschiebt die Player-Missiles um 
eine Bildschirmzeile nach unten 


sı | ®o 


87 | es | ss 84 | 83 | 82 


B7 verschiebt Player 3 
B6 verschiebt Player 2 
B5 verschiebt Player 1 

B4 verschiebt Player 0 
B3 _ verschiebt Missile 3 
B2 verschiebt Missile 2 
B1 verschiebt Missile 1 
BO verschiebt Missile O 


Diese Speicherstelle wird dazu benutzt, die Players oder 
Missiles bei zweizeiliger Auflösung eine Bildschirmzeile 
nach unten zu verschieben. 


GRAFPO 53261 ($DO0D): Grafik der Player 
GRAFP1 53262 ($DOOE) 
GRAFP2 53263 ($DOOF) 
GRAFP3 53264 ($D010) 


B7 B6 B5 B4 B3 B2 B1 Bo 


Das Bitmuster, das für die jeweiligen Players in die Spei- 
cherstellen übertragen wird, erscheint bei eingeschalteten 
Players, aber nicht aktiviertem Player-Missile-DMA (siehe 
»DMACTL.) auf dem Bildschirm. 


GRAFM 53265 ($D011): Grafik der Missiles 
B7 B6 B5 B4 B3 B2 B1 Bo 


B7-B6 Bitmuster für Missile 3 
B5-B4 Bitmuster für Missile 2 
B3-B2 Bitmuster für Missile 1 
B1-BO Bitmuster für Missile 0 


Wie bei»GRAFPO« bis »GRAFP3« erscheint das in diese 
Speicherstellen geschriebene Bitmuster für die Missiles 
auf dem Bildschirm, wenn die Missiles eingeschaltet, der 
Player-Missile-DMA aber ausgeschaltet ist (siehe 
»DMACTL.). 


SIZEPO 53256 ($D008): Breite der Player 
SIZEP1 53257 ($D009) 
SIZEP2 53258 ($DO0A) 
SIZEP3 53259 ($DOOB) 


Bi BO Breite 

00 normale Breite, jedes Bit des Players hat auf 
dem Bildschirm die Breite zweier Grafik- 
stufe-8-Punkte 

Ku Se doppelte Breite der Bildschirmpunkte 

190 normale Breite 

71 vierfache Breite 


Mit diesem Byte lassen sich die Bildschirmpunkte eines 
Players um das Zwei- oder Vierfache dehnen. 


SIZEM 53260 ($D00C) 
B7 | B6 | B5 B4 | B3 | B2 B1 BO 


B7-B6 Breite von Missile 3 
BS-B4A Breite von Missile 2 
B3-B2 Breite von Missile 1 
B1-B50 Breite von Missile O 


Wie »SIZEPO« bis »SIZEP3« für jeden der vier Missiles. 


HPOSPO 53248 ($D000): Horizontale Position des Players 
HPOSP1 53249 ($D001) 
HPOSP2 53250 ($D002) 
HPOSP3 53251 ($D003) 


Br | B6 | BS | B4 | B3 B2 | Bi BO 


Mit dieser Adresse wird die horizontale Position des 
jeweiligen Players festgelegt. Der Wert 48 ($30) entspricht 
dabei dem linken Rand eines normal breiten Bildchirms, 
208 ($D0) dem rechten Rand. 


HPOSMO 53252 ($D004): Horizontale Position des Missiles 
HPOSMI1 53253 ($D005) 
HPOSM2 53254 ($D006) 
HPOSMS3 53255 ($D007) 


EZEIEIEIEJIEZEIEZ 


Bestimmt die horizontale Position der Missiles auf dem 
Bildschirm. Die Werte entsprechen denen von »HPOSPO« 
bis »HPOSP3«. 


COLPMO 53266 ($D012): Farbe der Player-Missiles 
Schattenregister: PCOLRO 704 ($2C0) 


COLPM1 53267 ($D013) 
Schattenregister: PCOLR1 705 ($2C1) 


COLPM2 53268 ($D014) 
Schattenregister: PCOLR2 706 ($2C2) 


COLPM3 53269 ($D015) 
Schattenregister: PCOLR3 707 ($2C3) 


»]|s]e]|e 


Diese Register bestimmen die Farben der Player (siehe 
auch »COLPFO« bis »COLPF3« und »COLBK«). 


EAE3E 


MOPF 53248 ($D000): Kollision zwischen Missile und Bild- 
schirmgrafik 

MIPF 53249 ($D001) 

M2PF 53250 ($D002) 

M3PF 53251 ($D003) 


E 0] BE 


82 | eı 


= 


0 | 


Br 


123 


B3 
B2 entspricht COLPF2 
B1 entspricht COLPF1 


entspricht COLPF3 


Bo entspricht COLPFO 

Diese vier Register signalisieren eine Berührung zwi- 
schen einer Bildschirmgrafik und einer Missile. Welche 
Farbe die Missile berührt hat, bestimmt jeweils eins der vier 
Bits. Die Bits bleiben auch nach der Berührung gesetzt. 


POPF 53252 ($D004): Kollisiön zwischen Player und Bild- 
schirmgrafik 

P1PF 53253 ($D005) 

P2PF 53254 ($D006) 

P3SPF 53255 ($D007) 


[ss [2 [e: | eo ] 


MoPL 53256 ($D008): Kollision zwischen Missile und 
Player 

MIPL 53257 ($D009) 

M2PL 53258 ($DOOA) 

M3PL 53259 ($D00B) 


| k B3 
POPL 53260 ($D00C): Kollision zweier Player 
P1PL 53261 ($DOOD) 


P2PL 53262 ($DOOE) 
P3PL 53263 ($DOOF) 


ß | 


HITCLR 53278 ($DO1E): Löscht alle Bit der Kollisions- 
register. 


Da alle Kollisionsregister nach einer entsprechenden 
Berührung mit dem Objekt ihre Werte behalten, lassen sie 
sich mit diesem Register wieder löschen. Die Daten, die in 
dieses Register geschrieben werden, sind ohne Belang. 


82 | 5: | so 


B2 | B1 BO 


Tonerzeugung 


AUDCTL 53768 ($D208): Sound-Kontrollregister 
B4 


B7 B6& B5 


B3 B2 Bi 


Fe] 


B7 Der 17-Bit-Zufallszahlenzähler wird in einen 9-Bit- 
Zähler verwandelt 
Tonkanal 1 wird mit 1,79 MHz getaktet 
Tonkanal 3 wird mit 1,79 MHz getaktet 
Tonkanal 2 wird mit der Frequenz von Tonkanal 1 
getaktet 
Tonkanal 4 wird mit der Frequenz von Tonkanal 3 
getaktet 
B2 Ein Hochpaßfilter mit der Eckfrequenz von Tonkanal 
3 wird in Tonkanal 1 eingefügt 
B1 Ein Hochpaßfilter mit der Eckfrequenz von Tonkanal 
4 wird in Tonkanal 2 eingefügt 

BO Alle Tonkanäle werden nicht mit 64 kHz, sondern mit 
15 kHz getaktet 

Mit diesem Register lassen sich verschiedene Klang- 
farben eines Tons erzeugen. Am besten probiert man mit 
den einzelnen Bits herum, um zu hörenswerten Ergebnis- 
sen zu kommen. 

Die oben gegebenen Frequenzen sind Annäherungs- 
werte. Die exakten Frequenzwerte lauten folgendermaßen: 
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angenäherte Frequenz exakte Frequenz 


1,79 MHz 1,78979 MHz 
64 KHz 63,921 KHz 
15 KHz 15,9803 KHz 


Eine ausgegebene Frequenz wird nach folgender For- 
mel berechnet: 

‚Ausgangsfrequenz = 
Registerwert + 1 

Der Registerwert entspricht dem Wert, der in die einzel- 
nen Register»AUDF1«bis»AUDF4«geschrieben wird. Falls 
eine höhere Taktfrequenz benutzt wird, muß eine andere 
Formel zur Berechnung der Tonfrequenz verwendet wer- 
den: 

Ausgangsfrequenz = Eingangsfrequenz / 2+ (Register- 
wert + O) 

Wenn B3 oder B4 von »AUDCTL« 1 sind, wird »O« in der 
Formel zu 7, sonst wird »O« zu 4. 


Eingangsfrequenz / zweifacher 


AUDF1 53760 ($D200): Tonfrequenz 
AUDF2 53762 ($D202) 
AUDF3 53764 ($D204) 
AUDFA4 53766 ($D206) 


EZEIEIE 


> =.fenjenl 


In dieses Register wird ein Wert zwischen 0 und 255 
($00 - $FF) geschrieben, der die Frequenz eines Tons 
eines der vier Tonkanäle bestimmt. 


AUDC1 53761 ($D201): Lautstärke und Verzerrung des Tons 
AUDC2 53763 ($D203) 
AUDC3 53765 ($D205) 


AUDCA 53767 ($D207) 
ev | es | ss 54 | ss | » | sı | oo ] 
B7 B6 B5S B4 Erklärung 
0 0 0 0 Rauschen durch 5- und 17-Bit- 
Zufallsgenerator 
0 0 1 0 Rauschen mit 5-Bit-Zufallsgenerator 
0 10 0 Rauschen mit 4- und 5-Bit- 
Zufallsgenerator 
0 1 10 Rauschen mit 5-Bit-Zufallsgenerator 
(wie Kombination 0010) 
1. 0 0 0 Rauschen mit 17-Bit-Zufallsgenerator 
1 x 1 0 ReinerTon 
1 1.0 0 Rauschen mit 4-Bit-Zufallsgenerator 
x x x 1 Kein Ton, nur Lautstärkewerte 


B3 bis BO enthalten einen Wert zwischen O und 15, der 
die Lautstärke des Tons bestimmt. Mit diesen Registern 
werden, ähnlich dem »SOUND«-Befehl in Basic, die Verzer- 
rung sowie die Lautstärke eines Tons festgelegt. 


Notenwerte ] 
Notenname Dezimalwert Hexadezimalwert 
c4 29 SID 
H3 3 SIr 
A#3 33 $21 
A3 35 523 
G#3 37 $25 
Ss 40 s28 
F#3 42 S2A 
F3 45 $2D 
E3 47 s2F 
D#+3 50 2 
D3 53 $35 


Notenname 


c#3 
ss 
H2 

As#2 
A2 

G#2 


RANDOM 53770 ($D20A): Zufallszahlengenerator 
B7 | B6 B3 


B5 B4 B2 Bi Bo 


Aus dieser Speicherstelle lassen sich Zufallszahlen in 
einem Bereich zwischen 0 und 255 auslesen. B7 von 
»AUDCTL« verändert den Strom der Zufallszahlen. 


Interruptsteuerung 


NMIEN 54286 ($D40E): Schaltet NMis ein und aus 


Fe [0 


B7  Display-List-Interrupts ermöglichen. Wenn dieses Bit 
gesetzt wird, kann vom ANTIC aus ein Display-List- 
Interrupt ausgelöst werden. 

B6 VBLANK-Interrupt ermöglichen. Falls dieses Bit 


gesetzt wird, löst der ANTIC bei jedem neuen Fern- 
sehbild einen Interrupt aus. 


NMIST 54287 ($D40F): Status der NMis 
B7 B6 | B5 | 


B7 Falls dieses Bit gesetzt ist, wurde vom ANTIC ein 


Display-List-Interrupt ausgelöst 


B6 Falls dieses Bit gesetzt ist, wurde vom ANTIC ein 
VBLANK-Interrupt ausgelöst 
B5 Dieses Bit signalisiert, daß auf der Tastatur der alten 


400er-- und 800er-Computer die <SYSTEM 
RESET >-Taste gedrückt wurde. Da bei den XL/XE- 
Computern mit der <RESET>-Taste ein echter 
Reset des Mikroprozessors ausgelöst wird, hat die- 
ses Bit seine Bedeutung verloren. 


NMIRES 54287 ($D40F): Lösche Bit in »NMIST« 


Sobald der Mikroprozessor einen Schreibbefehl in diese 
Adresse ausführt, werden sämtliche Bits von »NMIST« 
gelöscht. Die geschriebenen Daten sind dabei ohne 
Belang. 


IRGEN 53774 ($D20E): Ermöglicht IRQs 
Schattenregister: POKMSK 16 ($10) 


35 | 54 ss | 


B7 B6 


le] 


B7 Es wird ein Interrupt ausgelöst, 
<BREAK>-Taste gedrückt wird 

löst einen Interrupt aus, sobald irgendeine Taste der 
Tastatur gedrückt wird (siehe auch »CONSOL«, 
»KBCODE« und »SKSTAT«) 

ermöglicht einen Interrupt, sobald ein Byte am seriel- 
len Port eingelesen wurde 

ermöglicht, von einem angeschlossenen Peripherie- 
gerät Daten anzufordern 

löst einen Interrupt aus, sobald alle Bit eines Byte zu 
einem angeschlossenem Peripheriegerät geschickt 
wurden 

B2 Zeitgeber-4-Interrupt einschalten 

Bi  Zeitgeber-2-Interrupt einschalten 

BO  Zeitgeber-1-Interrupt einschalten 


sobald die 


B6 


B5 
B4 


B3 


IRQST 53774 ($D20E): Zeigt an, welcher Interrupt ausge- 
löst wurde 


[er es 


Die <BREAK>-Taste hat einen Interrupt ausgelöst 
Eine Taste der Tastatur hat einen Interrupt ausgelöst 
Ein Byte wurde fehlerfrei vom seriellen Prot gelesen 
Ein Peripheriegerät hat ein Byte angefordert 

Ein Byte wurde komplett an ein Peripheriegerät über- 
tragen 

B2 Zeitgeber 4 hat einen Interrupt ausgelöst 

B1  Zeitgeber 2 hat einen Interrupt ausgelöst 

BO  Zeitgeber 1 hat einen Interrupt ausgelöst 


Alle diese Interrupts werden durch einen IRQ am Mikro- 
Prozessor ausgelöst. Über dieses Register stellt ein Pro- 
gramm fest, welcher der acht IRQs ausgelöst wurde. 


B3 B2 B1 BO 


B6 
B5 
BA 
B3 


STIMER 53769 ($D209): Starte Timer 


RT RER 


Über dieses Register werden die Timer des Computers 
gestartet. Als Timer fungieren die Register »AUDF1«, 
»AUDF2« und »AUDF4«. Erreichen die Timer den Wert 0, 
und sind die entsprechenden Bits im »IRQEN«-Register 
gesetzt, wird ein IRQ ausgelöst. Der Wert, der in dieses 
Register geschrieben wird, ist ohne Bedeutung. 


Tastatur 


CONSOL 53279 ($DO1F): Funktionstasten 
[ | B3 B2 Bi 


] 


B3 Tastaturklick. In den alten 400er- und 800er-Compu- 
tern war ein Lautsprecher eingebaut. Dieser ließ sich 
mit diesem Bit ansprechen. Schreibt man hier also in 
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schneller Reihenfolge eine 0 und eine 1 hinein, ver- 
nimmtman einen Ton aus dem Lautsprecher. Beiden 
XL/XE-Computern wird kein Lautsprecher einge- 
baut. Dafür hört man den Tastaturklick aus dem Laut- 
sprecher des Fernsehers oder Monitors. 

B2 Die <OPTION>-Taste wird gedrückt 

Bi Die <SELECT>-Taste wird gedrückt 

BO Die <START>-Taste wird gedrückt. 


Mit diesem Register werden die Funktionstasten abge- 
fragt. Normalerweise sind die Bits BO bis B2 auf 1 gesetzt. 
Erstwenn eine Taste gedrückt wird, ist das entsprechende 
Bit gelöscht. 


KBCODe 53769 ($D209): Tastaturcode 
Schattenregister: CH 764 ($2FC) 


B7 B6 B5 B4 83 B2 B1 Bo 


D7 <CONTROL>-Taste 
DE <SHIFT>-Taste 


Die restlichen 6 Bit werden nach folgendem Schema auf- 
geschlüsselt: 


Tastaturcode | Tastaturkappe ASCH <SHIFT> | <CONTROL> 
soo <i> SC sc soc 
sor <> SoA saA sa 
so2 <i> ss A TB 
3 <Fi> - S = 
os <F2> - - - 
$05 <K> ‚s6B 8 $0B 
s06 <+> s2B sc SIE 
so7 <> SA ssE sır 
soB <0> sor Sr Sor 
soo. E = = S 
S0A <P> so sso so 
soB <U> 5 ss5 s5 
soc <RETURN> soB seB SB 
soD <i> s ss sog 
‚SOE <-> s2D ssF SIC 
sor <e> sd sc sıD 
sıo <v> Ki ss sı6 
su <HELP> - - S 
sı2 <c> 563 5 $03 
sız <F3> - - = 
sis <Fa> - E 5 
s15 <B> ss2 su2 502 
ss <x> Eu 558 sıs 
sız <Z> A SA sıa 
sı8 <a> ss 524 - 
sıo & T = & 
Sta <3> 333 & = 
sıB <6> Be 26 2 
SIc <ESC> SıB SB sıB 
sın <5> 535 s5 = 
sıE <2> = s22 Beep 
sıE <i> ss s2ı - 
so <> s2c ssB soo 
s2ı <SPACE> 520 s20 s20 
$22 <> S2E $s5D sco 
523 <N> SsE SE SOE 
s24 - = E = 
ss <M> ssD sıD ‚oD 
s25 <i> sor SIF - 
s27, <INVERS> . . = 
s2 <A> sr 2 sı2 
ss z Z 5 3 
S2A <E> 865 5 505 - 
s2B <Y> Kr] 859 ss 
S2C <TAB> STE S9F se 
SD <T> 57a ss si 
SE <w> Ed 8 sız 
ser <0> Kal 5 sn 
so <9> K s28 = 
Bl - - - ” 
2 <0> 30 829 = 
3 <7> 7 $27 E 
= [<BACK SPACE> SIE ssc SE 


Tastaturcode | Tastaturkappe 


<8> 
<<> 
<>> 
<F> 
<H> 
<D> 


<CAPS> 
<6> 8 sor 
<$> 73 353 ss 
<A> sc $41 so 


RREBEREERER 


Die mit einem »*« gekennzeichneten Tasten erhalten kei- 
nen Tastaturcode, sondern werden vom Betriebssystem für 
spezielle Zwecke benötigt. Bit B7 und B6 lassen sich nur 
abfragen, wenn die <SHIFT> oder <CONTROL>-Taste 
zusammen mit einer anderen Taste gedrückt wird. 


Joystickanschlüsse 


PORTA 54016 ($D300) 

Schattenregister: STICKO 632 ($278): Joystickanschluß 1 
und 2 

STICK1 633 ($279) 

PTRIGO 636 ($27C) 

PTRIG1 637 ($27D) 

PTRIG2 638 ($27E) 

PTRIG3 639 ($27F) 

Für Joysticks 


B7 B6 BS B4 B3 B2 Bi BO 


87 Joystick 2 nach rechts gedrückt 
B6 Joystick 2 nach links gedrückt 

BS Joystick 2 nach hinten gedrückt 
B4 Joystick 2 nach vorne gedrückt 
B3 Joystick 1 nach rechts gedrückt 
B2 Joystick 1 nach links gedrückt 

B1 Joystick 1 nach hinten gedrückt 
BO Joystick 1 nach vorne gedrückt 


Für Drehregler 
EZEZ 


[ee] | 


B7 Feuerknopf Drehregler 3 
B6 Feuerknopf Drehregler 2 
B3 Feuerknopf Drehregler 1 
B2 Feuerknopf Drehregler 0 


Mit diesem Register lassen sich die Joysticks 1 und 2 
sowie die Drehregler 1, 2, 3 und 4 abfragen, sofern in 
»PACTL« B2 gesetzt ist. 


Falls B2 in »PACTL« gelöscht ist, wird mit dieser Adresse 
das Richtungsregister angesprochen. 


[® 


ss | ss | ss | ss | 2 | sı | oo | 


Jedes Bit in diesem Register schaltet am Joystickport 
den betreffenden Pin als Eingang oder Ausgang. Ein 
gelöschtes Bit schaltet den Pin als Eingang und ein gesetz- 
tes Bit schaltet einen Ausgang. 


PACTL 54018 ($D302): Port A Kontrollregister 


[| B5 Ba ss | e2 | sı Bo 
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B7 Dieses Bit läßt sich nur lesen. Es zeigt den Zustand 
des »Proceed«-Pins des seriellen Bus an. Wenn das 
Bit gesetzt ist, wurde von einem Peripheriegerät ein 
Interrupt ausgelöst. Das Bit läßt sich durch Lesen von 
»PORTA« wieder löschen. 


B6  istimmer 0 
B5 ist immer 1 
B4  istimmer 1 
B3 kontrolliert den Motor vom Kassettenrecorder. Ist das 


Bit gelöscht, so ist der Motor eingeschaltet. 

B2 schaltet bei»PORTA«zwischen dem Daten- und dem 
Richtungsregister hin und her. Wird das Bit gesetzt, 
so ist »PORTA« als Datenregister geschaltet. 

Bi  istimmer O 

bestimmt, ob über den »Proceed«-Pin am seriellen 

Port ein Interrupt auftreten darf. Wenn das Bit gesetzt 

ist, wird ein Interrupt akzeptiert. 


PORTB 54017 ($D301): Banklogik 
[® 86 | 85 | B3 


s2 | sı [ oo ] 


B7 Wenn dieses Bit gesetzt ist, wird im Speicher zwi- 
schen $5000 und $57FF anstelle des RAM das 
Selbsttest-ROM eingeblendet 

B6 ist nicht benutzt. 

85  hatnurbeim 130XE eine Bedeutung. Wenn dieses Bit 

gesetzt ist, hat der ANTIC auf die zusätzlichen 64 

KByte RAM Zugriff. 

hat nur beim 130XE eine Bedeutung. Wenn diesesBit 

gesetzt ist, hatdie CPU auf die zusätzlichen 64 KByte 

RAM Zugriff. 


B2- haben ebenfalls nur beim 130XE eine Bedeutung. Mit 
B3 ihnen wählt man eine der zusätzlichen vier RAM- 
Bänke im Bereich von $4000 bis $7FFF aus. 

B3 B2 

00 RAM-Bank 0 

OT RAM-Bank 1 

1 0 RAM-Bank 2 

| RAM-Bank 3 


B1 schaltet im Speicherbereich zwischen $A000 und 
$BFFF das Atari-Basic-ROM ein. Wird dieses Bit 
gesetzt, so wird das ROM eingeblendet. 

schaltet im Bereich zwischen $C000 und SCFFF 
sowie zwischen $D800 bis $FFFF das Betriebs- 
system-ROM ab und blendet das darunterliegende 
RAM ein. Wenn BO gelöscht ist, wird das ROM ausge- 
blendet. 


Bei den alten Atari 400er und 800er Computern werden 
hier die Joysticks und Drehregler von Port3und 4 abgefragt 
(siehe PORTA). 

Schattenregister: STICK2 634 ($27A) 
STICK3 635 ($27B) 
PTRIGA4 640 ($280) 
PTRIGS 641 ($281) 
PTRIG6 642 ($282) 
PTRIG7 643 ($283) 


PBCTL 54019 ($D303): Port B Kontrollregister 

or | B6 B5 B4 | B3 B2 | B1 BO 

B7 Dieses Bit läßt sich nur lesen. Wenn es gesetzt ist, 
wurde von einem Peripheriegerät am »Interrupt«-Pin 


des seriellen Bus ein Interrupt ausgelöst. Das Bit läßt 
sich durch Lesen von »PORTB« wieder löschen. 


B6 istimmer 0 
B5  istimmer 1 


B4  istimmer 1 
83 zeigt den Zustand des »Command»-Pin am seriellen 
Bus an 


B2 wechselt bei »PORTB« zwischen dem Daten- und 
dem Richtungsregister. Wenn das Bit gesetzt ist, ist 
am »PORTB«-Register das Datenregister ansprech- 
bar. 

Bi  istimmer 0 

BO ermöglicht einen Interrupt am »Interrupt»-Pin des 
seriellen Bus 


POTO 53760 ($D200): Drehreglereingänge 
Schattenregister: PADDLEO 624 ($270) 


POT1 53761 ($D201) 
Schattenregister: PADDLE1 625 ($271) 


POT2 53762 ($D202) 
Schattenregister: PADDLE2 626 ($272) 
POT3 53763 ($D203) 
Schattenregister: PADDLE3 627 ($273) 


POT4 53764 ($D204) 
Schattenregister: PADDLE4 628 ($274) 


POT5 53765 ($D205) e 
Schattenregister: PADDLES 629 ($275) 


POT6 53766 ($D206) 
Schattenregister: PADDLE6 630 ($276) 


POT7 53767 ($D207) 
Schattenregister: PADDLE7 631 ($277) 


EZE3EIEC3E B2 Bi 


Mit diesen Registern wird der Wert der Drehregler abge- 
lesen. Der Wert liegt immer zwischen 0 und 228 ($0 - $E4). 
Die letzten vier Register haben bei den XL/XE-Computern 
keine Bedeutung, da bei diesen die Anschlüsse für die 
Drehregler nicht vorhanden sind. Der Wertin den einzelnen 
Registern ist erst nach 228 Fernsehzeilen auf dem Bild- 
schirm gültig (siehe auch »ALLPOT« und »POTGO«). 


ALLPOT 53768 ($D208): Gültigkeit der Drehreglerwerte 


BO 


B7 B6 B5 BA B3 B2 B1 BO 


Dieses Register wird ausgelesen, um festzustellen, ob 
der Wert eines Drehreglers einen stabilen Zustand erreicht 
hat. B7 entspricht Drehregler 7 und BO Drehregler 0. Ein 
gesetztes Bit zeigt einen gültigen Drehreglerwert an. 


POTGO 53771 ($D20B): Drehregler abfragen 


Mit diesem Register wird eine Abfragesequenz der Dreh- 
regler gestartet. Nach spätestens 228 Bildschirmzeilen ist 
die Sequenz beendet (siehe »ALLPOT«) und die Werte kön- 
nen aus »POTO« bis »POT7« gelesen werden. 

TRIGO 53264 ($D010): Feuerknöpfe der Joysticks 
Schattenregister: STRIGO 644 ($284) 


TRIG1 53265 ($D011) 
Schattenregister: STRIG1 645 ($285) 
TRIG2 53266 ($D012) 
Schattenregister: STRIG2 646 ($286) 


TRIG3 53267 ($D013) 
Schattenregister: STRIG3 647 ($287) 
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Diese Speicherstellen fragen die Feuerknöpfe der Joy- 
sticks ab. Immer wenn ein Knopf am Joystick gedrückt 
wurde, ist das Bit BO gelöscht. Wenn in dem Register 
»GRACTL« B2 gesetzt ist, speichern die Register den 
Druck des Joystick-Knopfs. Zurückgesetzt werden sie, 
indem B2 von »GRACTL« gelöscht wird (siehe auch 
»GRACTL.«). 


PENH 54284 ($D40C): Lichtgriffel 
Schattenregister: LPENH 564 ($234) 


EIE3E3E3E3IEC3E Bo 


Dieses Register liest die horizontale Position des Licht- 
griffels auf dem Bildschirm aus. Der Wert liegt zwischen O 
und 227 ($0 - $E3). Aufgrund eines Hardwarefehlers verän- 
dern sich die Werte in dem Register, wenn der Feuerknopf 
am Joystick gedrückt ist. Zuverlässig funktioniert der Licht- 
griffel nur bei dem amerikanischen NTSC-Fernsehsystem. 


PENV 54285 ($D40D): Lichtgriffel 
Schattenregister: LPENV 565 ($235) 


[8 | ss ] ss B4 ss | »2 | sı | ®o ] 


Dieses Register gibt die vertikale Position eines Lichtgrif- 
fels auf dem Bildschirm an (siehe auch »PENH.«). 


Serieller Port 


B2 Mit diesem Bit wird die schnelle Abfrage der Dreh- 
regleranschlüsse eingeleitet. Anstelle von 228 Zeilen 
lassen sich die »POT«-Register schon nach zwei Bild- 
schirmzeilen auslesen. 

Bi schaltet die Tastatur-Abfrage ein 

Bi schaltet Tastatur-Entprellung ein 

Wenn BO und B1 gelöscht sind, führt der POKEY eine 

Selbsttest-Routine aus. 


SKSTAT 53775 ($D20F): Status des seriellen Port 
EAESE3E3E3E sı | eo 


B7 Wenn dieses Bit gelöscht ist, wurde ein Byte von 
einem Peripheriegerät zum Computer gesendet, 
während dieser das letzte noch nicht verarbeitet hat 
Wenn dieses Bit gelöscht ist, wollte der Computer ein 
weiteres Byte senden, während das vorige noch nicht 
komplett zum Peripheriegerät geschickt wurde 
Dieses Bit zeigt bei gelöschtem Zustand an, daß auf 
der Tastatur zu schnell hintereinander Tasten 
gedrückt wurden 
B4 ist direkt mit dem »Seriell In«-Pin des seriellen Port 
verbunden 
B3 Wenn eine der beiden <SHIFT>-Tasten gedrückt 
sind, wird dieses Bit gelöscht 
B2 Eine Taste auf der Tastatur ist immer noch gedrückt. 
Bi zeigt bei gelöschtem Zustand an, daß der Computer 
gerade ein Byte von einem Peripheriegerät empfängt 
BO istimmer 1 


B6 


BS 


SKRES 53770 ($D20A) 


SKCTL 53775 ($D20F): Steuerung serieller Port 
54 | ss | 2 | sı | ®o 


B7 B6 85 


B7 schaltet den Pin »seriell Output« vom Port auf Masse 


B6 B5 B4 Erklärung 


Wenn die CPU einen Schreibbefehl in dieses Register 
ausführt, werden alle Bits von »SKSTAT« gelöscht. Die 
Daten, die in das Register geschrieben werden, sind ohne 
Bedeutung. 


0 0 0 Ein- und Ausgabe von Daten werden mit 
einem externen Taktsignal an »Clock in« 
vom seriellen Port gesteuert 

Ausgabe von Daten wird mit einem externen 
Takt an »Clock in« gesteuert. Bei der Daten- 
eingabe übernimmt der Computer die Daten 
im Takt des Tonkanals 4. 

Ein- und Ausgabe von Daten erfolgt im Takt 
des Tonkanals 4. Der Takt steht am »Clock 
out«-Pin des seriellen Port zur Verfügung. 


Daten werden im Takt des Tonkanals 4 aus- 
gegeben. Dateneingabe erfolgt über einen 
externen Taktgeber am »Clock in«-Pin des 
seriellen Port. 


o 


Datenausgabe erfolgt im Takt des Tonkanals 
2. Dateneingabe erfolgt im Takt des Tonka- 
nals 4, wobei der Takt am »Clock out«-Pin 
des seriellen Port zur Verfügung steht. 
Datenausgabe erfolgt im Takt des Tonkanals 
2, Dateneingabe im Takt des Tonkanals 4. Es 
steht kein Taktsignal zur Verfügung. 

setzt die Zweiton-Datenübertragung (wird beim Kas- 
settenrecorder benutzt) anstelle einer digitalen 
Datenübertragung. Die zwei Töne werden mit Tonka- 
nal 1 und 2 erzeugt. 


B3 


SERIN 53774 ($D20E): Serielles Empfangsregister 


B7 B6 B5 B4 


B3 B2 Bi Bo 


Der Computer empfängt von einem Peripheriegerät 
seriell einzelne Bits eines Byte. Nach der Übertragung 
steht das übertragene Byte in diesem Register zur Ver- 
fügung. 


SEROUT 53773 ($D20D): Serielles Senderegister 
B7 B6 B3 ] B2 Bi Bo 


BS B4 


In dieses Register schreibt der Computer ein Byte, das 
seriell zu den Peripheriegeräten übertragen wird. 

Mit diesen neun Seiten wäre der komplette Computer 
beschrieben. Wie auch anderswo macht nur die Übungden 
Meister. Sie sollten also ausgiebig mit den Registern expe- 
rimentieren. Erst dann wir auch ersichtlich, welches Poten- 
tial in dem kleinen Computer steckt. Wahrscheinlich wer- 
den Sie nach kurzer Zeit die Fähigkeiten Ihres Gerätes 
nicht mehr missen wollen. Gerade wenn Sie auf einen 
anderen Computer umsteigen, werden Ihnen sicherlich die 
vielen Funktionen der XL/XE-Computer fehlen. Auf der fol- 
genden Seite sind noch einmal sämtliche Register sowie 
deren Schattenregister in alphabetischer Reihenfolge 
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zusammengestellt. 


Die Register in alphabetischer Reihenfolge | 
Hardware-Register Schattenregister Hardware-Register Schattenregister 
Adresse Adresse Adresse Adresse 
Name Beschreibung Hex Dez Name Hex Dez | | Name Beschreibung Hex Dez Name Hex Dez 
/ALLPOT Abfrage ob alle Drehegler D208 53768 MIPF Missile 1Bild- DODI 53249 
fenig gelesen schirmgrafik 
/AUDCI Tonkanal 1 Kontroll- D201  sa7s1 M2PF Kollision Missile 2-Bild- DO02 53250 
register schirmgrafik 
AUDC2 Tonkanal 2 Kontroll- D203 53783 MSPF Kollision Missile 3-Bile- D003 53251 
register schirmgrafik 
= Bir == MOPL Kollision Missile O-Player DO08 53256 
er MIPL Kollision Missile 1-Player D009 53257 
/AUDC4 Tonkanal 4 Kontroll- D207 sarer MZPL Kollision Missile 2-Player DOOA 53258 
register D208 53768 M3PL Kollision Missite 3-Player DO0B 53259 
AUDCTL Sound Kontrolltegister = 
INMIEN NMI Kontroliregister D40E 54286 
FE == nu INMIRES Löscht NMIST DSOF 54287 
x Ve > INMIST__NMI Statusregister D4OF 54287 
Tonkanal 2 POPF Kollision Player 0-Bil- D004 53252 
Schirmgrafik 
IE m - PIPF Kollision Player 1-Bild- D005 53253 
schirmgrafik 
AUDES Eee Daoszı 53766 P2PF Kollision Player 2-Bild- DO06 59254 
L Schirmgrafik 
CHACTL Zeichensatz Kontrol- _D401 54273 CHART 2F3 755 - 5 
register D409 54281 CHBASE 2F4 756 a a ion Player si. _ Dal 55255 
CHBASE Zeichensatz Adreßregister ul 
COLBK Rahmentarbe Do1A 5327 COLOR4 2c8 72 En = Pd 
ag Zochenfarbe 0 DaBa 53270 BrOESHEE 204 BER P2PL Kollision Player 2.Player DOOE 53262 
COLPFI Zeichenfarbe 1 D017 53271 COLORI 2C5 709 a ee meer 
COLPF2 Zeichenfarbe 2 DO18 53272 COLOR2 2C6 710 Bye Zi 
COLPFS Zeichenfarbe 3 Do19 53273 COLOR3 2C7 Ti En a konrotreoir a ss 
Ma aroa von Player Datz 53265 EESEBO 2C0 Bo PBETL Port B Kontroliregister D303 54019 | 
COLPMI Farbe von Player- DO 53267 PCOLRI 2Cı 705 BE ezorale Posiüon Ban Mr 2 
aba ı jes Lichtgriffels 
COLPM2 Farbe von Piayor- DO14 53268 PCOLR2 2C2 706 PENV Vertikale Position 54285 LPENV 235 565 
Missile 2 des Lichtgriffeis. 
|COLPM3 Farbe von Player- Do1S 53269 PCOLRS 2C3 707 Adresse des Player. ar 
as PORTA N D300 54016 
# esse von 
Register der = PORTB_ Adresse von Part B D301 54017 
Funktionstasten 
DLISTH höherwertiges Byte der D403 54275 SDLSTH 231 561 POTO Drehregler 0 D200 53760 PADDLO 270 624° 
play-List POTI _ Drehregler 1 D201 swreı PADDLI zrı 625 
DLISTL niederwertiges Byte der D402 54274 SDLSTL 230 560 POTZ _Drehregler 2 0202 5s762 PADDL2 272 626 
e Display-List POTS__Drehregler 3 0203 Sara PADDLS 273 
DMACTL DMA Kontrollregister D400 54272 SDMCIL 22F 559) POTA Drehregier 4 D204 53754 PADDLA 27a 630 
GRACTL Grafik Kontrollregister DOID 53277 POTS _ Drehregler 5 D205 53765 PADDLS 275 631 
GRAFM| Grafik der Missiles Don 53265 POTS  Drehregler 6 D206 53766 PADDLG 276 632 
'GRAFPO Grafik von Player 0 DO0D 53261 POTT Drehregler 7 D207 53767 PADDL7 277 633 
GRAFP1 Grafik von Player 1 DODE 53262 POIGO, Starte Drehregler Abfrage DEOB 53771 
GRAFP2 Grafik von Player 2 DOOF 53263 PRIOR Prioritäisregister DOIB 53275 GPRIOR 26F 623 
GRAFP3 Grafik von Player 3 DO10 53264 RANDOMZufallszahlengenersior D20A 53770 
HITCLR Lösche alle Kollisions- DOIE 53278 SERIN Serieller Eingabe-Port D2OE 53774 
zen SEROUT Serieller Port Ausgabe- D20D 5377 
HPOMO Horizontale Positionvon D004 53252 register 
Missile 0 SIZEM Größe der Missiles DOOC 53260 
HPOM1 Horizontale Position von D005 53253 SIZEPO Größe Player 0 D008 53256 
Missile 1 SIZEPI_ Größe Player 1 D009 53257 
HPOM2 ee von D006 53254 SIZEP2 Größe Player 2 DOOA 53258 
4 SIZEP3 Größe Player 3 DOOB 53259 
eg Horizontale Position von TEOGZ 82255 SKCIL _Serieller Port Kontrol- D2OF SSKCIL 232 562 
Missile 3 register 
HPOSPO Horizontale Position von 1000 53248 SKREST, Löscht SKSTAT. D20A_ sarro 
Player 0 = 
y SKSTAT Serieller Port Status D2OF sarrs 
HPOSP1 Bee Doo1 53248 mer 2: 
‘ TRIGO Feuerknopf JoysickO DO1O 53264 STRIGO 284 644 
HPoSe2 ae Fositionivon), ES 5250 TRIG1 _Feuerknopf Joystick 1 DOM 53265 STRIGI 285 645 
HPOSP3 Horizontale Positionvon 008 53251 : TRIG2 FeuerknopfJoysick? DOI2 59266 STRIG2 286 646 
Player 3 TRIGS _Feuerknopf Joystick? DO. 53267 SIRIGE 285 647 
HSCROL Horizonisies Feinseroll- D404 54276 ee Verka eiöschrm- [BETEN sa2as 
Register 3 ; 
IRQEN IRQ Kontrollregister D20E 53774 POKMSK 10 16 WERT ee Big 54276 
TROST IRQ Statusregister D20E 53774 g = 
‚KBCODE Tastaturcode 209 sar69 CH 2Fc 764 VSCROL Vertikales Feinscrol- D405 54277 
z register 
Be Kolsion Missa oBid. TBanaa sazas WSYNC Warte auf vertikales D4OR 54282 
er ‚Synchronsignal 
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Grafikzauberei 


Is Atari die8-Bit-Computer ent- 
RAR: wollte man ein mög- 

lichst leistungsstarkes Gerät 
auf den Markt bringen. Zum damali- 
gen Zeitpunkt war dies nur durch 
Hardware möglich, die den Mikropro- 
zessor des Computers soweit wie 
möglich entlastet. Also ersannen die 
Entwickler des Computers drei spe- 
zielle Chips. Zwei dieser Bausteine 
haben die Aufgabe, den Ton im Com- 
puter zu erzeugen, die Tastatur abzu- 
fragen und mit angeschlossenen Peri- 
pheriegeräten in Verbindung zu tre- 
ten. Der dritte Chip ist speziell für die 
Grafik verantwortlich und trägt den 
Namen »ANTIC«, »Alpha Numeric 
Television Interface Chip«. 

Dieser Baustein ist ein kompletter 
kleiner Mikroprozessor mit einer eige- 
nen Programmiersprache. Die Be- 
fehle dieser Programmiersprache 
bestimmen, welche Grafik man auf 
dem Bildschirm sieht. Ein in dieser 
Programmiersprache geschriebenes 
Programm nennt man »Display-List«, 
Die Display-List steht dabei an beliebi- 
ger Stelle im Computerspeicher, 
wobei dem ANTIC vom 6502-Prozes- 
sor mitgeteilt wird, wo sich die Display- 
List befindet. Der ANTIC liest dann 
genau wie ein richtiger Mikroprozes- 
sor Befehl auf Befehl aus dem Spei- 
cher. Jeder einzelne dieser Befehle 


Ein Prozessor 
namens ANTIC... 


stellt eine bestimmte Grafik-Betriebs- 
art dar. Wenn Sie den Computer zum 
Beispiel einschalten, haben Sie den 
ganz normalen blauen Bildschirm vor 
sich. Damit lassen sich 24 Zeilen aus- 
geben. Für jede dieser 24 Zeilen steht 
ein Befehl in der Display-List, der 
besagt, daß jetzt eine Zeile mit 40 nor- 
malen Zeichen dargestellt werden 
soll. In der Grafikstufe 2 lassen sich 
dagegen zehn Zeilen mit doppelt so 
hohen Zeichen sowie vier Zeilen mit 
normalen Zeichen abbilden. Die 
Display-List besteht hier aus zehn 
Befehlen für die Zeichen mit doppelter 
Höhe und vier Befehlen für die norma- 
len Zeichen. Jedesmal, wenn Sie 
unter Basic einen neuen Grafik-Befehl 
eintippen, wird dem ANTIC einfach 
nur eine neue Display-List übergeben. 

Es existieren drei verschiedene 
‚Arten von Befehlen in der Display-List. 
Die erste Art sagt dem ANTIC, daß er 
jetzt eine bestimmte Grafikstufe gene- 
rieren muß. In dieser Art sind alle 


In die Atari-Computer ist ein 
spezieller Mikroprozssor einge- 
baut, der die gesamte Grafik- 
steuerung des Computers über- 
nimmt. Mit ein paar Kenntnis- 
sen über die Funktionsweise 
des Bausteins lassen sich 
wahre Grafikwunder auf dem 
Bildschirm erzeugen. 


Befehle enthalten, die auf dem Bild- 
schirm eine Grafik in einer wie auch 
immer gearteten Form erzeugen. Je 
nach Grafikbefehl für den ANTIC weiß 
dieser auch gleichzeitig, wie viele 


zahl auf 312,5. Würde der ANTIC nun 
gleich in der ersten Zeile mit dem Bild- 
schirmaufbau beginnen, so würde 
man gut und gerne das oberste Viertel 
des Bildes auf dem Bildschirm nicht 
sehen. Vielleicht kennen Sie den 
Effekt, wenn Sie noch einen alten 
Fernseher besitzen, der nicht korrekt 
eingestellt ist, und bei dem das Bild 
ein wenig zu tief sitzt. Dort sehen Sie 
dann einen schwarzen Balken, indem 
einige Zeilen wild flimmern. Dieser 
Balken sollte normalerweise nicht 
sichtbar sein, daer so weit nach oben 
verschoben ist, daß er nicht mehr das 
Bild verunziert. Worauf es aber 
ankommt: Dieser Balken besteht aus 


Systemadressen für Display-Lists 


DLISTL 54274 D402 
DLISTH 54275 0403 
DMACTL 54272 D400 
SDLSTL ‚560 230 
SDLSTH 561 231 
SDMCTL 559 22F 


Low-Byte Startadresse Display-List 
‚High-Byte Startadresse Display-List 
schaltet ANTIC ein und aus 
‚Schattenregister von DLISTL 
Schattenregister von DLISTH 
Schattenregister von DMACTL 


Bytes er aus dem Speicher holen muß 
und wie er diese Bytes zu interpretie- 
ren hat. Zum Beispiel muß er bei der 
Grafikstufe 8 insgesamt 40 Byte aus 
dem Speicher lesen. Die einzelnen 
Bits der Bytes verwendet er dann 
dazu, auf dem Bildschirm ein Punkte- 
muster zu erzeugen, jedes gesetzte 
Bit läßt einen Punktaufleuchten. Stößt 
er dagegen auf einen Befehl, der ein 
Zeichen auf dem Bildschirm darstel- 
len soll, so holt er sich zunächst auch 
40 Byte aus dem Speicher. Jedes die- 
ser Bytes sagt dem ANTIC die Num- 
mer des Zeichens, für das das Byte im 
Speicher steht und das auf dem Bild- 
schirm dargestellt werden soll. Dar- 
aufhin liest er 8 weitere Bytes und 
interpretiert die Bits dieser Bytes als 
Punktemuster. Auf diese Weise wird 
ein Zeichen auf dem Bildschirm dar- 
gestellt. 


...ein »Display-List«= 
Programm 


Von diesen Grafikbefehlen gibt es 
16 verschiedene Arten. Mit den letzten 
15 lassen sich die verschiedensten 
Grafikstufen auf dem Bildschirm 


erzeugen. Die erste ist jedoch einzig 
und allein dazu da, Leerzeilen aufden 
Bildschirm zu bringen. Im deutschen 
PAL-Fernsehsystem stehen 625 Fern- 
sehzeilen zur Verfügung. Da aber 
jedes zweite Bild praktisch dem ersten 
entspricht, halbiert sich diese Zeilen- 


den ersten Fernsehzeilen. Wenn der 
ANTIC also gleich in der ersten Fern- 
sehzeile mit dem Bildschirmaufbau 
beginnen würde, wäre der Anfang des 
Bildes dort, wo normalerweise dieser 
schwarze Balken sitzt, nämlich außer- 
halb des Bildschirms. Aus diesem 
Grund gibt es für den ANTIC Befehle, 
die nichts weiter verrichten, als den 
Bildschirm mit schwarzen Zeilen zu 
füllen. Dadurch läßt sich auf einfache 
Weise softwaremäßig ein Bild nach 
oben oder unten verschieben, man 
muß nur die entsprechende Anzahl an 
Leerzeilen einfügen oder entfernen. 
Von diesen sogenannten »Blank-Line- 
Befehlen« gibt es insgesamt acht 
Stück, sie erzeugen einebisachtieere 
Zeilen auf dem Bildschirm. Eine nor- 
male Display-List besitzt am Anfang 
immer drei Befehle, die jeweils acht 
Blank-Lines erzeugen, insgesamt 
sind das 24 Leerzeilen. 

Die zweite Befehlsgruppe umfaßt 
die Befehle, die dem ANTIC mitteilen, 
von woher er die Daten holen soll, aus 
denen er die Bildschirmgrafik aufbaut. 
Eigentlich ist dies gar keine eigene 
Befehlsgruppe, denn im ANTIC sind 
diese Befehle so gelöst, daß ein Gra- 
fikbefehl auch gleichzeitig ein Befehl 
zum Adressieren der Bildschirmgrafik 
sein kann. Der Unterschied liegt darin, 
daß in dem Grafikbefehl ein weiteres 
Bit gesetzt ist, dasdem ANTIC mitteilt, 
daß jetzt ein Befehl zum Bestimmen 
der Adresse der Bildschirmgrafik 
kommt. Außerdem besteht solch ein 
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Befehl nicht aus einem, sondern aus 
drei Byte, dem Byte für die Grafikstufe, 
sowie zwei Byte, die die Adresse 
bestimmen, ab der der Computer die 
Byte für die Bildschirmgrafik holt. Die- 
ser Befehl hat noch eine weitere Funk- 
tion. Aufgrund der inneren Konstruk- 
tion des ANTIC kann ein zusammen- 
hängender Bildschirmspeicher maxi- 


wird, haben die Entwickler des ANTIC 
den Sprungbefehl eingebaut. Und wie 
bei jedem guten Mikroprozessor gibt 
es auch beim ANTIC bedingte und 
unbedingte Sprünge. Die unbeding- 
ten Sprungbefehlte verknüpfen ein- 
fach mehrere Display-Lists miteinan- 
der. Diese lassen sich also völlig wirr 
im Speicher verteilen. Sobald der 


‚ANTIC-Befehle 
Horizontales Scrolling xx xx x 
Vertikales Scrolling xx xx 
Bildadresse festlegen xx xx 
Display-List-Interrupt xx 
1 Leerzeile 100° 180 
2 Leerzeilen 10 190 
3 Leerzeilen 20) ‚AO| 
4 Leerzeilen 30) BO) 
5 Leerzeilen 40) co| 
6 Leerzeilen 150 Do} 
7 Leerzeilen 60 0! 
8 Leerzeilen 70: Fo 
Sprunganweisung 0 81 
Springe und warte auf neues Bild |4 lea} 
‚Normaler Zeichensatz (GR. 0) 142) 62[72]82|92]A2]B2/C2|D2]E2|F2' 
Zeichensatz mit Unterlänge 143) 163]73]83) 33 BB3ic3|DsjES|F3 
Farbzeichensatz (GR. 12) 44 64|74|84|94 IC4DAJEA|F4| 
Farbzeichensatz (GR. 13) 45 65[75]85/95]A5/85|C5|DS|ES|F5 
Doppelt breite Zeichen (GR. 1) ‚46 '66|76]86|96)A6|B6|C6|D6EGIF6 
Doppelt breite Zeichen (GR. 2) ar\sz\ez|zz\ezlozlazlez/czlorlerier 
‚Grafik (GR. 3) 48 68|78|88/98|A8B8lC8lDslEsiFs 
‚Grafik (GR. 4) 49 169/79|88|99}A9i88jc9jpsles|Fo' 
‚Grafik (GR. 5) 4A! ISA|TZA|SAIYAJAAIBAICAIDAIEA FA] 
Grafik (GR. 6) B|sBIeB|B|sBisBAB|BEICBIDBIEBIFB 
Grafik (GR. 14) IacIsclsc zC CIBCICCDCIECFC 
Grafik (GR. 7) 14D|5D|6D|7D/sD|sDIADIBDICDIDDIEDIFD 
‚Grafik (GR. 15) 4E| SE|TEISEIIEJAEIBEICEIDEJEEIFE 
‚Grafik (GR. 8) 4FISF|6F|7F|SF|SF|AFIBFICFIDFIEFIFF) 


mal nur vier KByte lang sein. Es gibt 
aber Grafikstufen, die wesentlich 
mehr als vier KByte Bildschirmspei- 
cher verbrauchen. Grafikstufe 8 benö- 
tigt zum Beispiel einen Bildschirm- 
speicher von über sieben KByte. In 
solchen Fällen wird in der Display-List 
einfach immer dann ein neuer Spei- 
cherbeginn angegeben, wenn der 
ANTIC die 4-KByte-Grenze über- 
schreitet. Übrigens wird dieser Befehl 
auch benutzt, um die Bildschirme in 
unserem 256-Farben-Programm 
umzuschalten. Bei diesem Programm 
wird alle 50stel Sekunde zwischen 
zwei Bildschirmen hin- und herge- 
schaltet. Dies geschieht, indem eine 
VBLANK-Routine periodisch in die 
Display-List die beiden Startadressen 
der beiden Speicherbereiche 
schreibt. 

Die dritte Befehlsgruppe der Dis- 
play-List-Befehle umfaßt die Sprung- 
befehle. Ähnlich wie beim maximalen 
Bildschirmspeicher darf die Display- 
List nicht länger als 1 KByte sein. Da 
es vorkommt, daß sie doch mal länger 


ANTIC auf einen derartigen Befehl 
stößt, springt er sofort zu der Adresse, 
die hinter dem Befehl angegeben ist. 
Deshalb ist der unbedingte Sprungbe- 
fehl auch 3 Byte lang. Der bedingte 
Sprungbefehl übernimmt eine ganz 
spezielle Aufgabe im ANTIC. Was 
würde passieren, wenn der ANTIC 
einmal eine Display-List durchgear- 
beitet hat? Er würde versuchen, die 
Daten, die hinter der Display-List ste- 


..ein r 
Befehle... 


hen, als Grafik-Befehle zu interpretie- 
ren. Und nachdem er 1 KByte durch- 
geackert hat, würde er von vorne die 
Display-List abarbeiten. Nur leider 
würde das nicht mehr synchron zum 
Bildschirm erfolgen. Aus diesem 


Grund gibt es den bedingten Sprung- 
befehl. Man benützt ihn, um am Ende 
einer Display-List wieder an dessen 
Anfang zu springen. Stößt der ANTIC 
auf dieses Kommando, verzweigt er 


nicht gleich zu der Adresse hinter dem 
Sprungbefehl, sondern wartet erstein- 
mal ab, bis der Fernseher oder Monitor 
ein neues Bild zeichnet. Erst dann 
springter zu der neuen Adresse, diein 
den meisten Fällen wieder der Anfang 
der Display-List ist. 

Damit wären die drei Grundbefehls- 
arten der Display-List beschrieben. 
Jeder Grafik-Befehl übernimmt außer- 
dem bis zu drei zusätzliche Funktio- 
nen, das hängt davon ab, welches Bit 
im Grafikbefehl noch gesetzt ist. Zwei 
Bit im Grafik-Befehl sind dafür reser- 
viert, horizontales und vertikales 


Feinscrolling zu realisieren. Sind 
diese Bits gesetzt, wird eine Grafik- 
zeile um genau so viele Pixel nach 
links verschoben, wie in dem jeweili- 
gen Feinscrollingregister festgesetzt 
sind. Indem man diese Register verän- 
dert, läßt sich auf einfache Weise 
Feinscrolling verwirklichen. 

Die letzte Möglichkeit betrifft das 
Bit, das einen Display-List-Interrupt 
auslöst. Da die Möglichkeiten des 
Display-List-Interrupts sehr vielfältig 
sind, ist diesem Thema ein eigener 
Beitrag (»Als die Farben laufen lern- 
‚ten«) gewidmet. Alle Display-List- 
Befehle sind in der Tabelle zu diesem 
Beitrag zusammengefaßt. 

Wie muß man nun vorgehen, um 
eine eigene Display-List zu verwen- 
den? Zunächst muß feststehen, an 
welcher Stelle die Display-List im 
Speicher steht. Diese Adresse 
schreibt man in die beiden Register 
»SDLSTL« (Adresse 560, $230) und 
»SDLSTH« (Adresse 561, $231), bezie- 
hungsweise in die Hardware-Register, 
wenn Sie die VBLANK-Routine nicht 
benutzen (»DLISTL«, Adresse: 54274, 
$D402 und »DLISTH«, Adresse: 
54275, $D403). Vorher sollte man 
jedoch den ANTIC über die Speicher- 
stelle»SDMCTL« (Adresse: 559, $22F) 
beziehungweise über das Hardware- 
Register »DMACTL« (Adresse: 54272, 
$D400) abgeschaltet haben, da es 
sonst manchmal vorkommt, daß das 
Bild häßlich zu flackern anfängt. 
Sobald der vertikale Zeilenzähler 
»VCOUNT« (Adresse: 54283, $D40B) 
auf Null steht und damit anzeigt, daß 
der Elektronenstrahl des Fernsehers 
oder Monitors wieder in der obersten 
Zeile angelangt ist, sollte man den 
Bildschirm wieder einschalten. 

Damit wäre alles Wissenswerte 
über die Display-List beschrieben. Sie 
sollten ausgiebig damit experimentie- 
ren, damit Sie ein Gefühl für die Grafik- 
fähigkeiten des Computers bekom- 
men. (M) 
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Obwohl der Atari nur maximal 
fünf Farben auf dem Bildschirm 
darstellt, strotzen einige Pro- 
gramme nur so vor Farben. Die 
Erklärung liegt bei einem einfa- 
chen aber wirkungsvollen Inter- 
rupt des Computers. 


on Atari gibt es sehr schöne 

Grafik-Demonstrationsprogram- 

me. Erinnern Sie sich an den 
grünen Roboter auf dem Fließband, 
der dem Betrachter scheinbar entge- 
genmarschiert? Oder an das in dem 
gleichen Demonstrationsprogramm 
gezeigte Raumschiff, das zu hero- 
ischer Musik durch den Weltraum rast 
und dabei im Takt der Musik aufund ab 
schwebt? Sehr schön ist auch ein Pro- 
gramm, bei dem sich das Atari- 
Zeichen um seine Mittelachse dreht 
und im Vordergrund ein Pelikan quer 
über den Bildschirm flattert. Eins 
haben alle diese Programme gemein- 
sam: Bei allen ist das Atari-Logo an 
irgendeiner Stelle der Demonstration 
zu sehen. Und in dem Zeichen laufen 
regenbogenartig Farben nach oben. 
Dabei sind auf dem Bildschirm je nach 
Größe des Atari-Zeichenszwischen 50 
und 100 Farben zu sehen. Um solche 
Effekte zu erzeugen, bedienen sich 
die Programmierer der Diplay-List- 
Interrupts des Computers. 

Was sind nun Display-List-Inter- 
rupts? Kurz gesagt, damit wird bei 
einer bestimmten Bildschirmzeile im 
Computer ein Interrupt ausgelöst. Der 
Mikroprozessor springt dann ein spe- 
zielles Programm an, mit dem zum 
Beispiel die Bildschirmfarbe umge- 
schaltet wird. Die Bildschirmzeile, in 
der der Interrupt auftreten soll, sowie 
das Programm, das vom Mikroprozes- 
sor angesprungen wird, ist vom Pro- 
grammierer frei definierbar. Üblicher- 
weise besteht das Programm aus 
wenigen Maschinensprache-Be- 
fehlen, mit denen die Farbe am Bild- 
schirm umgeschaltet wird. Der Dis- 
play-List-Interrupt ist jedoch für belie- 
bige andere Anwendungen einsetz- 
bar. Zum Beispiel lassen sich damit ab 
einer bestimmten Bildschirmzeile die 
Position sowie der Speicherbereich 
für die Player-Missiles neu festlegen. 
Auf diese Weise bekommt man statt 
der üblichen vier Player und Missiles 
jeweils acht oder mehr Objekte auf 
den Bildschirm. 

Denkbar wäre auch, daß mit dem 
Display-List-Interrupt eine Musik 
gespielt wird. Musikstücke, die der 
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Als die Farben 


Computer abspielt, während er gleich- 
zeitig noch mit etwas anderem 
beschäftigt ist, werden normalerweise 
mit dem VBLANK-Interrupt realisiert 
(siehe Beitrag »Das Programm im Hin- 
tergrund« in diesem Heft). Der 
VBLANK-Interrupt wird alle 50stel 
Sekunde ausgeführt, wodurch im Takt 
dieser Zeitspanne ein neuer Ton 
beginnt. Definiett man nun einen 
Display-List-Interrupt, der in der Mitte 
des Bildschirms ausgelöst wird und 
der die gleiche Musikroutine wie der 
VBLANK-Interrupt verwendet, so steht 
für das Musikprogramm die doppelte 
Notenauflösung zur Verfügung. Das 
Musikprogramm wird in dem Fall dop- 
pelt so oft aufgerufen. Dies sind nur 
einige anregende Beispiele für den 
Einsatz des Display-List-Interrupts. 
Das Spektrum der Anwendungen ist 
schier endlos, und so manches Spiel 
oder Anwenderprogramm hat schon 
davon profitiert (siehe »Ballblazer«von 
Lucasfilm Games oder »Staflexter« 
von Sybex). 


Stolpersteine in 
der Display-List 


Doch wie wird ein Display-List- 
Interrupt programmiert? Zunächst 
muß festgelegt werden, in welcher 
Bildschirmzeile der Interrupt ausge- 
löst werden soll. Dies wird über die 
Display-List festgelegt. Jeder der 
Display-List-Befehle ist so program- 
mierbar, daß er einen Display-List- 
Interrupt auslöst. Dafür ist in jedem 
Befehl ein Bit reserviert, das bei 
gesetztem Zustand einen Interrupt 
erzeugt (siehe Beitrag »Grafikzaube- 
rei« in diesem Heft). Zu beachten ist 
dabei, daß der Interrupt erst ausgelöst 
wird, wenn der Display-List-Befehl 
bereits abgearbeitet ist. Er tritt also 
immer in der letzten Bildschirmzeile 
eines Befehls auf. Aus diesem Grund 
muß der Interrupt-Beiehl in der 
Display-List immer vor dem Befehl ste- 
hen, in dem der Interrupt ausgewertet 
wird. Zudem braucht der Prozessor 
einige Zeit, um zu erkennen, daß ein 
Display-List-Interrupt auftrat. Bis dann 
vom Prozessor das eigentliche Pro- 
gramm angesprungen wird, ist der 
Elektronenstrahl auf dem Bildschirm 
fast bei der nächsten Bildschirmzeile 
angelangt. 

Das Programm, das durch den Dis- 
play-List-Interrupt aufgerufen wird, 
muß aus Zeitgründen in Maschinen- 
sprache programmiert werden. Wich- 
tig bei einer Display-List-Routine ist 


die Tatsache, daß beim Aufrufder Rou- 
tine alle Prozessor-Register noch 
erhalten sind. Die in dem Programm 
verwendeten Register müssen also 
erst gesichert werden, zum Beispiel 
auf dem Stack. Nehmen wir an, daß 
wir eine Display-List-Interrupt-Routine 
programmieren wollen, die an einer 
Stelle des Bildschirms die Farben 
umschaltet. Dazu wird höchstens ein 
Register benötigt, in diesem Fall der 
Accumulator. Der erste Befehl der 
Display-List-Interrupt-Routine muß also 
PHA 

lauten. Damit wird der Inhalt des 
Accus auf dem Stack gesichert. Als 
nächstes wird der Accu mit dem Farb- 
wert geladen, auf den umgeschaltet 
werden soll, und das Farbregister mit 
diesem Wert geladen. 

LDA #330 ;Farbe Rot 

STA $D018 ;als Hintergrundfarbe 

Danach muß der Accu wieder mit 
dem Wert geladen werden, den er bei 
Eintritt in die Interrupt-Routine ent- 
hielt. Die Routine wird anschließend 
wieder verlassen, und der Mikropro- 
zessor nimmt seine unterbrochene 
Arbeit wieder auf. 

PLA 
RTI 

Das war schon die ganze Display- 
List-Routine zum Umschalten der Hin- 
tergrundfarbe. Je nach Aufgabenstel- 
lung muß die Routine entsprechend 
erweitert werden. Elementar wichtig 
ist jedoch, daß das Programm alle 
Register, die in der Routine benutzt 
werden, auf dem Stack sichert, und 
daß es diese vor dem Verlassen der 
Routine wieder restauriert. 

Nachdem feststeht, wo ein Interrupt 
auftreten soll und die Routine fertig ist, 
muß dem Computer mitgeteiltwerden, 
ab welcher Adresse die Routine im 
Computerspeicher steht. Dies 
geschieht über »/DSLST« (Adressen 
512 und 513, $200 und $201). In 
VDSLST wird dabei das Low-Byte der 
Adresse der Interrupt-Routine ge- 
schrieben undin VDSLST+1 das High- 
Byte. Tritt nun ein Interrupt auf, springt 
der Prozessor über diese Adresse in 
die Interrupt-Routine. Mit der Spei- 
cherstelle »NMIEN« (Adresse 54286, 
$D40E) wird der Interrupt eingeschal- 
tet, indem Bit 7 dieser Adresse gesetzt 
wird (siehe auch Seite 125). Abge- 
schaltet wird die Routine wieder, 
indem dieses Bit gelöscht, oder wenn 
die <RESET > -Taste auf der Tastatur 


gedrückt wird. 
In Verbindung mit den Display-List- 
Interrupts spiet das Register 


BER 


laufen lernten 


»WSYNC« (Adresse 54282, $D40A) 
eine wichtige Rolle. Wenn Sie das 
obige Assembler-Programm eingege- 
ben haben und den Interrupt wie 
erklärt einschalten, werden Sie auf 
dem Bildschirm einen Farbwechsel 
sehen. 

Der Übergangsbereich der Farben 
vor und nach dem Interrupt flackert 
jedoch. Der Interrupt wird immer am 
Anfang der letzten Zeile eines Display- 
List-Befehls ausgelöst. Bis der Mikro- 
prozessor jedoch die Interrupt- 
Routine angesprungen hat, ist der 
Elektronenstrahl auf dem Bildschirm 
ein gutes Stück weitergewandert. 
Nachdem der Strahl dann gut drei 
Viertel der Bildschirmzeile beschrie- 
ben hat, stößt der Mikroprozessor auf 
den »STA $D018«-Befehl, womit die 
Bildschirmfarbe schlagartig umge- 
schaltet wird. Auf dem Bildschirm ist 
dadurch eine unansehliche Treppe zu 
erkennen, die obendrein noch zittert. 
Zur Vermeidung dieses Effekts ist die 
Speicherstelle WSYNC vorhanden. 


Mit sieben Befehlen 
zum Regenbogen 


Schreibt der Mikroprozessor irgendei- 
nen Wert in diese Speicherstelle, so 
ird er bis zum Anfang der nächsten 
Bildschirmzeile angehalten. Dies läßt 
sich ausnutzen, um die häßliche 


Treppe auf dem Bildschirm zu vermei- 
den. Folgendes Programm soll dies 
verdeutlichen: 

PHA 

LDA #$30 

STA WSYNG 

STA $D018 

PLA 

RTI 


Jetzt wartet der Mikroprozessor mit 
dem Umschalten der Farbe bis zum 
Beginn einer neuen Zeile. Damit ist 
der Farbübergang hinter den nicht 
sichtbaren linken Rand des Bild- 
schirms gerückt. 

Mit der Speicherstelle WSYNC wird 
auch der Farblauf in den verschiede- 
nen anfangs angesprochenen Atari- 
Grafikdemonstrationen program- 
miert. Diese legen eine Speicherstelle 
fest, die nach jedem Interrupt um 1 
erhöht wird, sollen die Farben nach 
oben laufen, oder um 1 vermindert 
wird, wenn sie nach unten laufen. 
Anschließend lädt der Accu diese 
Speicherstelle. Dann erfolgt der obli- 
gatorische Schreibbefehl in WSYNC 
und das Umschalten der Farben. Der 
Accu wird nun um 1 erhöht oder ver- 
mindert, je nachdem, auf welche 
Weise der Farblauf auf dem Bild- 
schirm erscheinen soll (von Hell nach 
Dunkel oder umgekehrt). Anschlie- 
Bend wird dieser Wert wieder in 
WSYNG geschrieben und die Proze- 
dur so lange wiederholt, bis der 


Systemadressen für Display-List-Interrupts 


VDSLST 512 200 
513 201 

NMIEN 54286 D40E 

WSYNC 54282 D40A 


Low-Byte der Adresse der Interrupt- 
Routine i 
High-Byte der Adresse der 
Interrupt-Routine 

Bit 7 schaltet DLIs ein und aus 

läßt den Prozessor auf den Beginn der 
nächsten Bildschirmzeile warten 


Bereich auf dem Bildschirm, in dem 
die Farben laufen, abgedeckt ist. 

Ohne Probleme lassen sich auch 
mehrere Interrupts hintereinander 
programmieren. Zum Beispiel soll der 
Bildschirm in drei Farben aufgeteilt 
werden, der obere Bereich Rot, in der 
Mitte Grün und unten Blau. Zunächst 
setzt man die Bildschirmfarbe auf Rot. 
Dann bestimmt man in der Display- 
List, an welcher Stelle auf dem Bild- 
schirm die Farben umgeschaltet wer- 
den sollen. Gleichzeitig müssen zwei 
Interrupt-Routinen programmiert wer- 
den. Die eine schaltet die Bildschirm- 
farbe auf Grün und die zweite auf 
Blau. Die erste setzt aber, nachdem 
sie die Farbe umgeschaltet hat, die 
Startadresse der Display-List- 
Interrupt-Routine auf die zweite Rou- 
tine, Die zweite führt das Entspre- 
chende mit der ersten Routine durch. 
‚Auf diese Art ist gewährleistet, daß die 
Routinen immer hintereinander auf- 
gerufen werden. Der Bildschirm wird 
durch die VBLANK-Routine automa- 
tisch auf Rot geschaltet. Schon haben 
Sie drei Farben untereinander auf 
dem Bildschirm. 

Damit wär auch schon alles über die 
Programmierung von Display-List- 
Interrupts gesagt. Mit wenigen Befeh- 
len lassen sich erstaunliche Effekte 
erzielen. Mit Ihrem neu erworbenen 
Wissen dürfte es Ihnen keine Pro- 
bleme bereiten, zu verstehen, wiezum 
Beispiel »Ballblazer« programmiert 
wurde. Beim Vor- und Zurückfahren 
werden einfach andere Display-Lists 
mit anderen Interruptstellen verwen- 
det. Fertig ist der Fahreffekt. Mit 
Display-List-Interrupts lassen sich 
auch Anwenderprogramme optisch 
enorm aufmöbeln (siehe »ASS« in die- 
sem Heft). Undsoschwierigistdasgar 
nicht. Probieren Sie es aus. (hf) 
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Als 


Programmierer ist man 
nicht ausschließlich auf den 
eingebauten Zeichensatz der 
XL/XE-Computer angewiesen. 
Neue Zeichensätze sind ohne 
Probleme nachrüstbar. 


ennen Sie »Turbo-Basic«? 

Dann ist Ihnen auch das 

Happy-Computer-Zeichen be- 
kannt, das am oberen Rand des Bild- 
schirms steht, während Turbo-Basic 
lädt. Um das Zeichen auf dem Bild- 
schirm darzustellen, wurde eine spe- 
zielle Eigenschaft der Atari-Computer 
ausgenutzt: Es lassen sich beliebige 
neue Zeichensätze definieren. Ob 
man nun Umlaute und das deutsche 
»B« zur Verfügung haben möchte, ob 
man ein Copyright-Zeichen benötigt 
oder einfach nur in kyrillischer Schrift 
programmieren möchte, mit umdefi- 
nierten Zeichensätzen ist das alles 
machbar. 

Ein Zeichen wird auf dem Bild- 
schirm in einer Acht-mal-acht- 
Punktmatrix dargestellt. Jeweils acht 
nebeneinanderliegende Punkte wer- 
den in einem Byte zusammengefaßt. 
Für ein komplettes Zeichen benötigt 
man also acht Byte. Diese werden im 
Speicher hintereinander abgelegt, 
wobei die erste Zeile eines Zeichens 
das erste Byte ist, die zweite Zeile das 
zweite Byte und so weiter. 

Wenn Sie ein Zeichen entwerfen, 
müssen Sie eine Besonderheit des 
‚Atari-Computers beachten: In einem 
Zeichen müssen horizontal immer 
zwei Punkte nebeneinander liegen, 
da der Punkt sonst kaum sichtbar ist. 
Wahrscheinlich kennen Sie den 
Effekt, wenn Sie in Grafikstufe 8 eine 
vertikale Linie ziehen. Schalten Sie 
Ihren Computer ein und geben Sie im 
Basic folgende Befehlsfolge ein: 
GRAPHICS 8 
SETCOLOR 2,0,0 
COLOR 1 
PLOT 160,10:DRAWTO 160,150 

Sie sehen in der Mitte des Bild- 
schirms jetzt eine blasse vertikale 
Linie. Geben Sie nun zusätzliche, fol- 
gende Zeile ein: 

PLOT 161,10:DRAWTO 161,150 

Sofort erstrahlt die Linie in hellem 
Weiß. Die gleichen Effekte würden 
auch in Zeichensätzen auftreten, 
denn die Punkteauflösung auf dem 
Bildschirm ist in Grafikstufe O0 und 8 
gleich (ein Zeichen besteht vertikal 
aus acht Punkten, und 40 Zeichen las- 
sen sich nebeneinander darstellen, 
macht also 320 Punkte wie in Grafik- 
stufe 8). 

Dieses merkwürdige Verhalten 
hängt mit dem Videosignal des Com- 
puters zusammen. Da sich das Gerät 


Die Handschrift 


technisch seit seinem Erscheinen im 
Jahr 1979 nicht verändert hat, ist 
immer noch das gleiche Videoteil ein- 
gebaut. Wahrscheinlich wußte Atari 
zum damaligen Zeitpunkt nicht, wie 
mit vertretbarem Aufwand und vor 
allem in vertretbarem finanziellen 
Rahmen ein besseres Videoteil einge- 
baut werden könnte. 

Ganz nebenbeilassen sich dadurch 
bei einem Farbfernsehapparat oder 
Monitor hübsche Effekte erzeugen. 
Geben Sie dazu folgendes Programm 
ein: 

100 GRAPHICS 8 

110 SETCOLOR 2,0,0:C0LOR 1 
120 FOR I=0 TO 319 STEP 2 
130 PLOT 1,0:DRAWTO 1,159 
140 NEXT I 

Wenn Sie das Programm laufen las- 
sen, sehen Sie, wie sich der Bild- 
schirm langsam mit dunkelgrünen 
und hellblauen vertikalen Linien über- 
zieht, Bei einem amerikänischen 
System mit der NTSC-Fernsehnorm 
würden diese in sattem Purpur und 
Blau leuchten. Einige amerikanische 
Spiele nutzen diesen Effekt gebüh- 
rend aus. Das führt dann dazu, daß 
zum Beispiel »Ultima Ill« in Amerika 
vor Farben strotzt, in Deutschland da- 
gegen ist das Spiel trostlos grau in grau. 


Im Speicher 


G 
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Doch zurück zu den Zeichensätzen. 
Je nach gewählter Grafikstufe lassen 
sich gleichzeitig unterschiedlich viele 
Zeichen darstellen. In Grafikstufe 0 
sind es 128 Zeichen, in Grafikstufe 1 
und 2 dagegen nur 64. Damit nimmt 
ein Zeichensatz je nach gewählter 
Grafikstufe auch verschieden viel 
Speicher in Anspruch. In Grafikstufe O 
benötigt er 1 KByte, in Grafikstufe 1 
und 2 nur ein halbes KByte. 

Der Zeichensatz bildet im Speicher 
des Computers einen zusammenhän- 
genden Block von Bytes. Nachdem 
man einen Zeichensatz zusammen- 
gestellt hat und dieser im Speicher 
steht, muß man dem Computer nur 
noch mitteilen, an welcher Adresse 
sich der neue Zeichensatz befindet. 
Beim Atari-Computer gibt es nun die 
Einschränkung, daß der Zeichensatz 
nicht an jeder beliebigen Stelle im 
Speicher stehen darf. Vielmehr mußer 
bei Grafikstufe 0 an der Grenze zum 
nächsten vollen KByte im Computer 
stehen, also zum Beispiel bei Adresse 
16384, 17408 oder 18432 ($4000, 
$4400, $4800) und bei Grafikstufe 1 
und 2 an der Grenze zum nächsten 
halben KByte, zum Beispiel bei 
Adresse 16384, 16896 oder 17408 
($4000, $4200, $4400). Aus diesem 


auf dem Bildschirm 
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Aussehen der Zeichensätze im Speicher und auf dem Bildschirm 
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des Computers 


Grund reicht auch ein einziges Byte, 
um dem Computer den Beginn des 


Zeichensatzes mitzuteilen. Dies 
geschieht über die Speicherstelle 
54281 ($D409), die den Namen 
»CHBASE« trägt. In diese Speicher- 
stelle trägt man also das höherwertige 
Byte der Adresse des Zeichensatzes 
ein. Will man in Basic eigene Zeichen- 
sätze verwenden, so benutztman bes- 
ser das Schattenregister von CHBASE 
bei Adresse 756 ($2F4) mit dem 
Namen »CHBAS«. (Was es mit den 
Schattenregistern auf sich hat, lesen 
‚Sie in dem Beitrag »Programm im Hin- 
tergrund«.) 

Damit Sie einen kompletten Zei- 
chensatz programmieren können und 
Ihre Zeichen anschließend wiederfin- 
den, müssen Sie noch wissen, in wel- 
cher Reihenfolge die Zeichen im Spei- 
cher stehen. Theoretisch müßte man 
annehmen, daß zum Beispiel das Zei- 
chen »A« mit dem ASCII 65 auch die 
65ste 8-Byte-Gruppe im Zeichensatz 
ist. Dern ist aber nicht so. Im Speicher 
stehen erst die Zeichen mit ASCII zwi- 
schen 32 und 95, dann folgen 32 Zei- 
chen, die die Grafiksymbole enthal- 
ten, und am Schluß stehen 32 Zeichen 
mit den kleinen Buchstaben. Nur so 
lassen sich in Grafikstufe 1 und 2 
Großbuchstaben, Zahlen und Sonder- 
zeichen zusammen darstellen. Wäre 
der Zeichensatz im Speicher in der 
gleichen Reihenfolge wie der ASCII 
aufgebaut, so ließen sich Buchstaben 
und Sonderzeichen in diesen Grafik- 
stufen nicht zusammen verwenden, 
denn diese Zeichen würden an zwei 
verschiedenen Halb-KByte-Grenzen 
liegen. Zur Verdeutlichung ein kleines 
Experiment. Geben Sie folgende Zei- 
len in den Computer ein: 

GRAPHICS 1 
PRINT #6; "HALLO, DU DA!” 

Auf dem Bildschirm sehen Sie jetzt 
am oberen Rand eine orangefarbige 
Textzeile. Tippen Sie nun den Befehl 
POKE 756,226 
ein. Damit versetzen Sie den Zeichen- 
satz um ein halbes KByte. Der Bild- 
schirm ist jetzt übersät mit Herzchen, 


der Text in der ersten Zeile ist klein 
geschrieben, unddas Komma und das 
Ausrufezeichen im Text haben sich in 
Grafikzeichen verwandelt. Wenn Sie 
jetzt folgende Zeilen eingeben, 
GRAPHICS O0 

PRINT *HALLO, DU DA!” 

POKE 756,226 

werden Sie anschließend keine Verän- 
derung feststellen, denn in Grafikstufe 
Oläßt sich der Zeichensatz nur in gan- 
zen KByte-Schritten versetzen. 
Geben Sie aber 

POKE 756,228 

ein, um den Zeichensatz um ein kom- 
plettes KByte zu verschieben (der Ori- 
ginalzeichensatz liegt bei 224), so 
werden Sie auf dem Bildschirm nichts 
mehr erkennen können. Jetzt nimmt 
der Computer nämlich einen Spei- 
cherbereich als Zeichensatz an, des- 
sen Bitmuster keine sinnvollen Sym- 
bole ergeben. 

Nebenbei bemerkt gibt es in den 
XL/XE-Computern noch einen zwei- 
ten kompletten Zeichensatz, der 
anstelle der ohnehin selten benutzten 
Grafiksymbole zahlreiche Sonderzei- 
chen enthält, darunter auch die deut- 
schen Umlaute. Sie schalten diesen 
Zeichensatz ein, indem Sie den Befehl 
POKE 756,204 
eingeben. Leider hat dieser Zeichen- 
satz nicht das deutsche »B« eingebaut. 
Deshalb haben wir für Sie ein Pro- 
gramm abgedruckt, das den Original- 
zeichensatz vom ROM ins RAM 
kopiert und dann anstelle der Grafik- 
zeichen die deutschen Umlaute und 
das »B« einfügt. 

Mit Zeichensätzen lassen sich noch 
einige Spielereien anstellen. Im Atari 
gibt es nämlich noch ein weiteres 
Register, das in Verbindung mit Zei- 
chensätzen von Bedeutung ist. Wahr- 
scheinlich haben Sie sich schon 
gewundert, daß ein Zeichensatz in 
Grafikstufe 0 aus nur 128 Zeichen 
besteht, obwohl in Basic mit dem 
CHR$-Kommando 256 Symbole aus- 
gedruckt werden können. Die ersten 
128 Zeichen werden dann normal dar- 
gestellt. Die zweiten 128 Zeichen ent- 


Systemadressen für Zeichensätze 


N 


Bit 0 - inverse Zeichen ausgefüllt 


CHACTL 54273 D401 
Bit 1 - inverse Zeichen sichtbar 
Bit 2 - alle Zeichen auf dem Kopf‘ 
CHART 755 2E3 ‚Schattenregister von CHACTL 
CHBAS 756 2F4 Schattenregister En 
CHBASE 54281 D409 
CHRORG 57344  E000 
CHRORU 52224 _CCO0 


sprechen den ersten 128, mit dem 
Unterschied, daß sie invers ausge- 
geben werden (schwarze Schrift auf 
weißem Grund). Diese Zeichen sind 
nicht etwa invers programmiert, dafür 
wäre im Zeichensatz gar kein Platz 
vorhanden. Vielmehr stellt der Com- 
puter Zeichen mit einem ASCII größer 
als 127 automatisch invers dar. Dem 
Computer teilt man jedoch über das 
obengenannte Register mit, wie er die 
letzten 128 Zeichen darstellen soll. 
Dieses Register liegt bei Adresse 
54273 ($D401) und trägt den Namen 
»CHACTL«. In Basic muß man jedoch 
dessen Schattenregister mit dem 
Namen »CHART« bei Adresse 755 
($2F3) benutzen. 

Das Register übernimmt drei Funk- 
tionen. Setztman Bit Oin diesem Regi- 
ster, so werden die normalerweise 
invers dargestellten Zeichen unsicht- 
bar. Geben Sie dazu folgende Zeilen 
ein: 

GRAPHICS O 
FOR I=128 TO 255:2 CHR$(T);: 
NEXT I 

Auf dem Bildschirm stehen jetzt 
sämtliche inverse Zeichen des Com- 
puters. Tippen Sie nun folgenden 
Befehl ein: 

POKE 755,1 

Alle inversen Zeichen sind vom Bild- 
schirm verschwunden, auch der Cur- 
sor, der selbst ein inverses Leerzei- 
chen ist. Wenn Sie nun anschließend 
POKE 755,0 
eingeben, sind alle Zeichen wieder 
normal dargestellt. Mit 
POKE 755,2 
haben Sie den Urzustand hergestellt, 
denn setzt man Bit 1, so werden die 
Zeichen mit ASCII größer 127 invers 
ausgegeben. Setzt man BitO undBit1 
- in Speicherstelle 755 muß also eine 
3 stehen - werden alle normalerweise 
inversen Zeichen als weißer Block 
abgebildet. Bit 2 von CHART stellt alle 
Zeichen auf den Kopf. Über Sinn oder 
Unsinn dieser letzten Funktion läßt 
sich streiten. Auf jeden Fall hat sie der 
Computer eingebaut, und warum 
sollte man damit nicht mal den einen 
oder anderen Gag programmieren. 

Neben den normalen Zeichensät- 
zen kann der Atari farbige Zeichen- 
sätze auf den Bildschirm bringen. Sie 
kennen sicher die beiden Grafikstufen 
12 und 13. Geben Sie einmal folgen- 
des ein: 

GRAPHICS 12 
PRINT #6; "HALLO, DU Daı” 

Auf dem Bildschirm sehen Sie jetzt 
in der oberen linken Ecke eine merk- 
würdige Ansammlung von Farbpunk- 
ten. Das liegt daran, daß der Compur, 
ter in dieser Grafikstufe die einzelnen 
Bit eines Zeichens anders interpre- 
tiert. Das Zeichen ist jetzt nur vier Bild- 
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punkte breit. Jeweils zwei nebenein- 
anderliegende Bit im Zeichensatz 
werden benutzt, um einen Bildschirm- 
punkt darzustellen. Mit zwei Bit lassen 
sich insgesamt vier verschiedene 
Kombinationen bilden. Jeder dieser 
Kombinationen wird ein entsprechen- 
des Farbregister zugeordnet. »SET- 
COLOR 4,...« verändert die Farbe des 
Bildschirmpunktes mit dem Bitmuster 
»00«, »SETCOLOR 0,...« ist für »O1«, 


...« ist für »11« zuständig. 
Wie bei Grafikstufe O werden gleich- 
zeitig maximal 128 Zeichen darge- 
stellt. Und wie bei Grafikstufe 0 haben 
auch hier Zeichen über ASCII 127 eine 
spezielle Bedeutung. Druckt man 
diese Zeichen aus, so nehmen die 
Bildschirmpunkte mit dem Bitmuster 
»10« die Farbe an, die mit dem Befehl 
»SETCOLOR 3,...« festgelegt wird. 


12 und 13 fünf verschiedene Farben 
gleichzeitig auf dem Bildschirm dar- 
stellen. 

Um diese Grafik-Betriebsart zu nut- 
zen, muß man sich erst einen entspre- 
chenden Zeichensatz zusammenba- 
steln. Ganz einfach läßt sich das eben- 
falls mit dem in dieser Ausgabe abge- 
druckten »CHAR-MAKER« bewerk- 
stelligen. 

Zum Schluß gibt es noch eine Zei- 
chensatzbetriebsart, die es erlaubt, 
Unterlängen in den einzelnen Zeichen 
darzustellen. Diese Betriebsart wird 
vom Betriebssystem des Computers 
nicht unterstützt. Deshalb muß man 
sich dafür eine eigene »Display-List« 
schreiben (wie das geht, wird im Bei- 
trag »Grafikzauberei« beschrieben). 
Diese letzte Betriebsart stellt alle Zei- 
chen auf dem Bildschirm zehn Zeilen 
hoch dar. Trotzdem werden nach wie 


Zeichen verwendet. Der Trick bei der 
Sache ist, daß bei den letzten 32 Zei- 
chen eines Zeichensatzes von einem 
Zeichen die ersten beiden Byte 
genommen und unter das Zeichen 
gesetzt werden. Die oberen beiden 
Zeilen eines Zeichens auf dem Bild- 
schirm bleiben dann frei (siehe Seite 
134). Auf diese Weise lassen sich ganz 
einfach Unterlängen darstellen. Vor- 
aussetzung dafür ist, daß die kleinen 
Buchstaben in den letzten 32 Stellen 
eines Zeichensatzes stehen, was 
beim Originalzeichensatz der Fall ist, 
und daß man sich einen Zeichensatz 
für Unterlängen umbastelt. 

Damit wären sämtliche Wege zur 
Gestaltung von Zeichensätzen bei 
den Atari-XL-Computern beschrie- 
ben. Viel Spaß mit Ihren eigenen Krea- 
tionen und mit dem auf Seite 35 vorge- 
stellten »CHAR-MAKER«! 


Damit lassen sich in den Grafikstufen vor im Zeichensatz nur acht Byte pro (Andreas Sons/hf) 
198 PRINT "ZESC CTL <>” <aH> De 
110 .DIM TREE$(2@) : TREES="!${ESC CTL +2{E DOOIO, jueuneusnsnsennuhsnann een 
SC CTL +2CESC CTL =IAAtESC CTL +HtESC CT 20020 ;= Ps 
L +3XESC CTL =I#IESC CTL -ITESC CTL 2 20038 ;* ZEICHENSATZUMWANDLUNG * 
ESC CTL -I":TREES (6,6) =CHR$ (34) <FA> BO04B ;* auf deutsche Zeichen * 
128 POKE 186,PEEK (196) :GRAPHICS 2:DL=P enosQ ;* 4 
EEK (568) +PEEK (561) #256 <Ha> mensn il 5 
13@® POKE DL+4,2:POKE DL+5,PEEK (195) :FOR ; M # 
A=® TO S11:POKE PEEK(186) *256+A,PEEK (573 a = 
A4+R) zNEXT A suv> Pepe PRRRRRRRRRER RER RA SER 
148 POKE DL+5,PEEK (89) :POKE DL+3,68:FOR 20118 ; 
A=DL+6 TO DL+19:POKE A,4:NEXT AsPOKE DL+ 2012® ; Dieses Programm setzt in den 
4,PEEK (88) <RQ> 22138 ; Standart-Zeichensatz die 
158 FOR A=PEEK(196)*256+8 TO PEEK(186) #2 @914@ ; deutschen Umlaute ein. 
S6+5S:READ B:POKE A,B:NEXT A <x0> Fe RN 
160 POKE 756,PEEK (186) <AG> 00170 ; 9 = Kleiner u Umlaut 
170 SOSUB 258 <sv> QBI82 ; 15 = grosser D Umlaut 
188 POSITION 19,9:PRINT TREES <1A> 20198 ; 16 = kleiner o Umlaut 
198 POKE 719,36:POKE 712,0 <HH> 02200 ; 19 = kleiner a Umlaut 
208 POKE 788+INT (RND (8) #2) „176+RND(@) #62 <Aam> 00210 ; 21 = grosser U Umlaut 
218 FOR A=1 TO RND(D)*1B:NEXT A <20> a en 
220 50TO 200 <Lv> 4 
230 A=1SS6:RESTORE 36B:POKE 54286,8 <on> er a ee 
248 READ B:IF B<256 THEN POKE A,B:AsAtl: 20260 GCHAR .ED seD 
GOTO 248 <HD> @927@ SSTART .EQ $E2 
258 RESTORE 349:POKE 82,5:POKE 83,35 <sV> SEND .EQ ses 
260 POKE DL+28,134:POKE DL+21,12 <zP> 2029® DSTART .EQ $E6 
27® POSITION 8,15:PRINT "tree":POKE 711, 20599 ANZAHL .EQ ES 
148 <FH> Besım ; 
288 PRINT :PRINT "DIESES.PROGRAMM.SOLL.D IP TIERLIER 
TE.MOEG-“LICHKEIT.-ZUM-UMDEFINIERENDES" <IV> Baaı BESHE RAMTOR En.sän 
29@ PRINT "ZEICHENSATZES.DEMONSTRIEREN. - 20350 ; 
nnDER-BAUM-BESTEHET-AUSA:A" <PK> 00348 ; PROGRAMMSPEICHERUNG 
308 FOR A=33 TO I8:PRINT CHRS(A)5:NEXT A 20370 ; 
:PRINT " <aL> ae En Fe 
3128 POKE 82,8:POSITION 2,17:PRINT TREE$ <XV> z Se 
32@ POKE 33,39: POSITION 36,17:PRINT TREE an Ben 
E3 <IB> ? PROGRAMM 
3358 POKE 512,8:POKE 5153,6:POKE 542864,192 FE 3 ST 
2 RETURN <LF> Bs00: 68 @04a0 PLA 
348 DATA-0,72,48,12,15,233,54,7,179,35,3 Deas2 ; 
,3,3,7,3,3,3,3,3,5,5,12,63,204 <2ZD> 08468 ; ERMITTELT DEN SPEICHERBEREICH 
35@ DATA.0,72,52,240,224,65,252,130,172, BGE TB 3 1 ELERSDENZSETEDENBATZ 
192,192,192,192,192,224,192,192,192,192, re u 
192,192,249,204,52 <HX> AS 6a GBS@B LDA RAMTOP 
368 DATA-72,169,0,141,18,212,141,24,208, 85 E1 @BSIB STA SCHAR+1 
169,1@,141,23,208,173,244,2,141,9,212,18 7 28 LDA #8 
4,64,256 <HS> 96087: 85 EB BBSSB STA GCHAR 


ting. »Tree« demonstriert anschaulich Farbzeichen- 


sätze beim XL/XE 
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298548 ; 

@055® ; KOPIERT DEN ZEICHENSATZ 
90560 ; VOM ROM INS RAM 

20570 ; 


= = — — 
8609: A? 908 00588 LDA #2 B@66E: AS EIS 81258 LDA SSTART+1 
B68B: 85 EZ 00598 STA SSTART 8678: 69 20 21268 ADC #@ 
G6OD: A9 EB MUBO LDA #$E0 0672: 85 ES 01278 STA SSTART+1 
B6RF: 85 EI QBsIB STA SSTART+I 8674: 4C 43 06 B128B JMP EXCHANI 
W6ll: A? OO BB620 LDA #O 21290 ; 
@b13: 85 EA 0Q635® STA SEND Q150® ; VERLASSEN DES PROGRAMMES 
@615: A9 ER MO64B LDA #SEA B131B ; 
2617: 85 ES 00650 STA SEND+I 91320 EXIT 
2619: AS EB BO66D LDA GCHAR 8677: 68 Q1S39 RTS 
@61B: 85 && 92670 STA DSTART Q1340 ; 
B6lD: AS EL BO6ER LDA GCHAR+ @1350 ; BITFELD FUER DIE Zu 
@6ir: 85 ET 00670 STA DSTART+I Q1560 ; ERSETZENDE ZEICHEN 
20700 ; @1370 ; 
2621: Ad 98 MaTIım LDY #0 D1380 CHARS 
22720 LOOP 18 3C 
8623: B1 E2 2973@ LDA (SSTARTI,Y 66 7E 
8625: 91 E& 29748 STA (DSTARTI,Y v2 01390 .HS 66183C046567E5508 
8627: c8 00758 INY 66 00 
@628: DO FF 076B BNE LOOP 66 66 
88770 ; 20 DIGG .HS 0066006666663E08 
B62A: AS ES 298788 LDA SSTART+1 SC 66 
862C: C5 ES 80790 CMP SEND+1 66 5& 
Be2E: FO 87 @B800 BER LOOPI 20 01418 .HS 563064666565635C02@ 
@630: E& ES WQB1B INC SSTARTH aa sc : 
8632: E6& E7 BBB2@ INC DSTART+1 66 56 
8654: 4C 25 86 BB85B JMP LODP 28 21428 .HS 66805C666556635C28 
BBE4B LOOPI 28 Sc 
828358 ; SE 66 
28860 ; VERAENDERN DES ZEICHENSATZES oo 01438 .HS S4BBICBESELSEIERB 
08878 ; Do &6& 
oo B2832 LDA #2 66 66 
es BB87B STA ANZAHL ou 21448 .HS 664006656666647E0B 
BB72R ; 3C 66 
78 BB71B LDA #CHARS ;bestimmt die 66 7C 
e2 00928 STA SSTART ;Adresse der zu ou 1450 .HS 803C657C657C5008 
B& 88730 LDA /CHARS sErsetzendene 66 7C 
E3 82948 STA SSTART+1 ;Zeichen im RAM 7C 68 
20950 ; oo 21468 HS 3C667C557C5090000 
BR9ED EXCHANI 01470 
ca 00970 LDY ANZAHL Q148@ ; TABELLE FUER POSITION 
88 06 80980 LDA CHRPOS,Y 01490 ; DER ZEICHEN 
BOB ASL 21508 ; 
SIORd ASL B1S10 CHRPOS 
BDO ASL 
B1828 CLC 
EB 81230 ADC GCHAR 01528 .HS 81B90F1013151A 
E6  BiB4B STA DSTART 
E1  BIBS@ LDA GCHAR+I --- Symbol table -—- 
22  BIB6B ADC #2 BGEB: ANZAHL 
E’ 81078 STA DSTART+1 CHARS 
21088 ; CHRPOS 
07 21098 LDY #7 DSTART 
21188 EXCHAN EXCHAN 
E2  BI11® LDA (SSTARTI,Y EXCHANI 
E& 81128 STA (DSTARTI,Y EXIT 
81138 DEY GCHAR a) 
FF B1142 BPL EXCHAN LOOP 
21150 ; LOOP1 
B6SF: E& EB 811&@ INC ANZAHL RAMTOP 
B661: AS EB 81178 LDA ANZAHL SEND 
8563: C9 97 21188 CMP #7 SSTART 
8665: F@ 18 81198 BEQ EXIT START 
81220 ; 
8667: AS E2 8121@ LDA SSTART Ok. 
8569: 18 81228 CLC 
B66A: 69 BB 812538 ADC #8 
@66C: 85 E2 81248 STA SSTART Listing. Für Assemblerfreaks: Umlaute und »B« 
192 REM DEUTSCHER ZEICHENSATZ <uS> 302 DATA.194,6,10,18,10,24,1@1 <a1> 
11Q REM ======0suonsnnsnnnnnn <AN> 31@ DATA1224,133,230,165,225,105,2 <PL> 
120 REM <Aan> 320 DATA.133,231,160,7,177,226,145 <FK> 
130 1=1556 <ı1> 33@ DATAL230,136,16,249,230,232,165 <aK> 
14@ READ J:IF J=256 THEN 16® <PN> 348 DATA232,291,7,242,16,165,226 <La> 
158 POKE 1,J:1=I+1:60T0 148 <aD> 35@ DATA.24,185,8,133,226,165,227 <S0> 
16@ POKE 196,PEEK(186)-4:6RAPHICS 8 <JE> 36@ DATA.195,8,133,227,76,67,& <TH> 
178 A=USR (1534) <ru> 37@ DATA.96,192,24,60,192,1@2,126 <Zu> 
188 POKE 756,PEEK (196) <AK> 388 DATA.122,2,2,182,8,102,192 <HX> 
198 END <YE> 39@ DATA.1@2,62,0,182,658,122,192 <Dn> 
282 DATA.184,165,196,133,225,169,2 SAT» 492 DATA.102,102,60,2,182,2,62 <HR> 
21@ DATA.133,224,169,0,135,226,169 <HN> 412 DATA.182,102,122,42,2,122,8 <0D> 
222 DATA.224,133,227,169,0,133,228 <CK> 4220 DATA=68,6,62,182,62,2,182 <ax> 
238 DATA.169,228,133,229,165,224,133 <H6> 43@ DATA.2,1@2,1@2,192,122,126,8 <B0> 
248 DATA«239,165,225,153,251,160,8 <KX> 448 DATA.0,68,182,124,182,124,76 <HB> 
258 DATAx177,226,145,230,200,208,249 <IK> 450 DATA.0,60,182,124,102,124,9& <HD> 
260 DATA.165,227,197,229,24@,7,230 <EH> 460 DATA-0,@,1,9,15,16,19 <BZ> 
278 DATA-227,230,231,76,35,6,169 <MX> 470 DATA-21,26,0,256 <UK> 
288 DATA-0,133,232,169,120,133,226 <VL> 
290 DATA-169,6,133,227,164,232,185 <KS> Listing. Umlaute und »ß« in eigenen Programmen 
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Programm im Hintergrund 


eder Assembler-Programmierer 

wird es bestätigen: Interrupts bei 

Mikroprozessoren sind eine 
feine Sache. Bestes Beispiel füreinen 
Interrupt ist eine Tastaturabfrage. Man 
läßt den Prozessor an irgendeiner Auf- 
gabe still vor sich hin arbeiten. Erst 
wenn eine Taste gedrückt ist, wird der 
Prozessor von seiner Aufgabe losge- 
rissen, um die Taste abzufragen und 
ihren Code zum Beispiel in einem 
Tastaturpuffer zu speichern. Ohne 
Interrupt könnte der Prozessor nichts 
anderes tun, als ständig in einer Pro- 
grammschleife die einzelnen Tasten 
zu überprüfen. Der Prozessor könnte 
also nur diese eine Aufgabe erledigen, 
und solange keine Taste gedrückt 
wird, würde er keine effektive Arbeit 
verrichten. Die Rechenzeit wäre ver- 
schenkt. 

Damit ein Programm aber auch auf 
relativ seltene Ereignisse reagiert - 
wie zum Beispiel den Druck auf eine 
Taste - ohne dabei einzig und allein 
diese Aufgabe wahrzunehmen, haben 
die Entwickler der Mikroprozessoren 
die Interrupts eingebaut. Der 6502 in 
den Atari-Computern hat davon gleich 
vier verschiedene. Zum ersten gibt es 
den Reset. Mit ihm wird dem Prozes- 
sor mitgeteilt, wo er beim Einschalten 
des Computers sein Programm findet. 
Zum zweiten hat der 6502 einen Inter- 
rupt eingebaut, der sich IRQ nennt, 
Interrupt Request, auf Deutsch: Jetzt 
soll ein Interrupt ausgeführt werden. 
Im Gegensatz zum Reset läßt sich der 
IRQ abschalten. 

Der dritte Interrupt ist als Hilfsmittel 
für Programmierer gedacht. Beim 
6502 gibt es einen Assembler-Befehl, 
der ebenfalls einen Interrupt auslöst: 
»BRK«, Break. Damit läßt sich bei der 
Fehlersuche das Programm an kriti- 
schen Stellen unterbrechen, um so 
Hinweise auf einen Fehler zu bekom- 
men. 

Der letzte Interrupt beim 6502 ist bei 
den Atari-Computern gleichzeitig der 
interessanteste; gemeint ist der Non 
Maskable Interrupt, der »NMi«. Wie 
der Name schon sagt, läßt er sich vom 
Prozessor nicht abschalten, wenn 
also ein NMI auftritt, muß der Prozes- 
sor darauf reagieren. 

Bei Atari hat dieser Interrupt zwei 
Funktionen: Zum einen wird damit ein 
sogenannter Display List Interrupt 
ausgeführt (wird an anderer Stelle in 
dieser Ausgabe besprochen). Zum 
anderen gibt es im Atari den »Vertical 
Blank Interrupt«: VBLANK-Interrupt. 
Jedesmal, wenn im Fernsehgerätoder 


in der Interrupt-Verarbeitung 
besitzt kaum ein Computer so 
viele Fähigkeiten wie der Atari 
XL. So kann man zum Beispiel 
im Takt des Bildschirmaufbaus 
ein Interrupt auslösen und 
damit ein Programm steuern. 


Monitor der Elektronenstrahl anfängt, 
ein neues Bild zu zeichnen, wird die- 
ser Interrupt ausgelöst. Im Betriebs- 
system des Computers liegt nun eine 
spezielle Interrupt-Routine, die 
dadurch aufgerufen wird und ver- 
schiedene Aufgaben übernimmt: die 
VBLANK-Routine. 

Dazu ein Beispiel: Schalten Sie 
Ihren Computer ein. Sie befinden sich 
jetzt im eingebauten Basic. Geben Sie 
nun folgenden Befehl ein: 

SETCOLOR 2,0,0 

Nachdem Sie <RETURN> 
gedrückt haben, wird der Bildschirm 
schwarz und die Schrift zeichnet sich 
hellgrau ab. Bis hierhin verläuft alles 
wie gewohnt. Der Basic-Interpreter 
erkennt in »Setcolor« den Befehl, die 
Farbe auf dem Bildschirm zu verän- 
dern. Dazu schaut er sich die Zahlen 
hinter dem Befehl an, wandelt sie um 
und schreibt sie in eine spezielle Spei- 
cherstelle, die für die Farbe verant- 
wortlich ist. Nun könnte man auf die 
Idee kommen, selbst direkt diese 
Speicherstelle mit Hilfe des »POKE«- 
Befehls zu verändern. Schließlich 
braucht der Interpreter dann nicht erst 
die Werte hinter dem Setcolor-Befehl 
umzurechnen, und man spart 
dadurch Zeit. Machen wir das einmal: 
POKE 53272,50 

Die Speicherstelle 53272 ist dabei 
für die Hintergrundfarbe beim Textmo- 
dus verantwortlich, und der Wert 50 
entspricht der Farbe rot. Theoretisch 
müßte der Bildschirm nun von 
schwarz auf rot umschalten. 

Mitnichten: Der Bildschirm bleibt 
schwarz. Nachdem Sie <RETURN> 
gedrückt haben, flackert der Bild- 
schirm bestenfalls kurz rötlich auf. Wie 
erklärt sich das? 

Hier kommt die VBLANK-Routine 
ins Spiel. Diese holt sich aus einer 
bestimmten Speicherstelle im Compu- 
ter einen Wert und schreibt diesen 
dann in die Speicherstelle, die für die 
Farbe verantwortlich ist. Da die 


VBLANK-Routine im Takt des Bild- 
schirmaufbaus aufgerufen wird, alle 
50stel Sekunde, wird die Speicher- 
stelle mit der Bildschirmfarbe in kur- 


zen Zeitabständen neu beschrieben. 
Die Speicherstelle, aus der der Wert 
geholt wird, nennt sich »Schattenregi- 
ster«. Wenn man also die Bildschirm- 
farbe direkt umschalten will, muß man 
den Farbwert direkt in das entspre- 
chende Schattenregister schreiben. 
Sie werden sich jetzt mit Recht fragen, 
wozu dieser ganze Aufwand gut sein 
soll. 

Um bei diesem Beispiel zu bleiben: 
Würde es den VBLANK-Interrupt nicht 
geben, und würde man die Farbe 
direkt umschalten, so würde dies 
meist dann geschehen, wenn sich der 
Elektronenstrahl gerade mitten auf 
dem Bildschirm befindet. Das Bild 
würde kurz flackern. Um dies zu ver- 
meiden, schreibt man den Wert in ein 
Schattenregister, und erst beim näch- 
sten VBLANK wird die Bildschirm- 
farbe umgeschaltet. 

Mit folgendem Befehl verändert 
man das Schattenregister: 


POKE 710,50 


Sobald Sie <RETURN> drücken, 
wird der Bildschirm rot. Speicherstelle 
710 ist also das Schattenregister für 
die Hintergrundfarbe beim Textmo- 
dus. Für die anderen Setcolor-Befehle 
gibt es entsprechende Register: Set- 
color O hat Speicherstelle 708, Setco- 
lor 1 hat Speicherstelle 709, Setcolor 3 
Speicherstelle 711 und Setcolor 4 hat 
Speicherstelle 712. 

Mit den Speicherstellen, die direkt 
die Farbe umschalten, läßt sich noch 
eine nette Spielerei durchführen: 
Geben Sie folgendes kleine Pro- 
gramm genau so ein, wie es hier 
gedruckt ist, und lassen Sie es laufen. 


100 POKE 53272,0 
110 REM 

120 REM 

130 POKE 53272,50 
140 GOTO 100 


Ist das für reines Basic nicht ein net- 
ter Effekt? Spaßeshalber können Sie 
Zeile 110 löschen und das Programm 
dann laufen lassen. 

Die VBLANK-Routine hat noch wei- 
tere Funktionen. Wußten Sie zum Bei- 
spiel, daß der Atari in den Speicher- 
stellen 18, 19 und 20 eine Uhr einge- 
baut hat? Speicherstelle 18 wird im 
50stel Sekundentakt erhöht. Wenn 
diese dann wieder bei Null anfängt, 
wird Speicherstelle 19 erhöht, und 
deren Überlauf in Speicherstelle 20 
registriert. So lassen sich mit ein- 
fachen Mitteln in eigene Programme 
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Zeitabfragen einbauen. 
RAAPPIM 
CO PUTER) 


Über die Uhr wird noch eine weitere 
interessante Funktion des Computers 
gesteuert. Sie tritt jedesmal dann in 
‚Aktion, wenn beim Computer länger 
als zirka sieben Minuten keine Taste 
mehr betätigt wurde. Dann nämlich 
beginnt der Computer die Farben zum 
Schutz des Bildschirms völlig zufällig 
zu verändern. Dieser »Attrakt Mode« 
genannte Zustand beginnt immer 
dann, wenn Speicherstelle 77, die im 
"Takt von Speicherstelle 20 erhöht wird, 
den Wert 127 überschreitet. Beijedem 
Tastendruck wird Speicherstelle 77 
wieder auf Null gesetzt, und die Far- 
ben hören auf, sich zu verändern. 
Geben Sie folgende Zeile ein: 

POKE 77,128 


Nachdem Sie <RETURN> 
gedrückt haben, schalten die Farben 
um. 

Neben diesen Funktionen führt die 
VBLANK-Routine noch viele weitere 
Aufgaben aus. Zum Beispiel wird der 
Joystickanschluß ausgelesen und in 
die Speicherstelle 278 für Joystick O 
und Speicherstelle 279 für Joystick 1 
übertragen. 

Die VBLANK-Routine übernimmt 
allgemein alle Aufgaben, beidenen es 
egal ist, ob sie sofort oder höchstens 
eine 50stel Sekunde später ausge- 
führt werden. Da der VBLANK-Inter- 
rupt immer im nicht-sichtbaren Teil 
des Bildschirms ausgeführt wird, wäre 
es schön, wenn man den Interrupt für 


eigene Aufgaben einsetzen könnte. 
Zum Beispiel ließe sich bei der Player- 
Missile-Grafik damit ein Player ruck- 
frei über den Bildschirm bewegen. 

Voraussetzung dafür ist aber, daß 
man sich in der Maschinensprache 
des 6502 gut auskennt, denn die 
VBLANK-Interrupts sind extrem zeit- 
kritisch und müssen unbedingt in 
Maschinensprache programmiert 
werden. Ganz nebenbei ist es auch 
sehr kompliziert, zum Beispiel ein 
Basic-Programm von einem VBLANK- 
Interrupt aus aufzurufen. 

Zunächst einmal muß festgelegt 
werden, wo die VBLANK-Interrupt- 
Routine stehen soll. Dann teilt man 
dem Computer mit, wo sich diese Rou- 


Ok. 


BLASTSOUND 


12.1.1986 


@224: 
E462: 


€474: WARMSV 


AUDF1 
AUDCA 


D200: 
D2@1: 
D2@A: 


DABE: NMIEN 


| 


2882: 
2882: 


E 
QBISB ; 
20340 ; 
„OR $2088 
TA 52008 
Tr 


20 


BNE VBLANKI 


2821: AD LDA RANDOM 


Pa 


Henrik Fisch 


Dieses Programm simuliert 
den Sound eines bekannten 
und beruehmten Spiels 
EauATes 

.EQ #224 

\EQ sE462 

„EQ $E474 

; HARWARE REGISTER 

.EQ +D200 

»EQ #D201 

RANDOM „EG $D20A 

!EQ spaae 

VON DIESEM PROGRAMM BENUTZT 


SNDADR .EQ +88 
VOLADR .EQ #82 


PROGRAMMSPEICHERUNG 


"D: BLASTSND. COM" 


5 INITIALISIERUNG 


AUSWAEHLEN DES SOUNDS 


D2 


PErTr Te 


20 


D2 


D2 


20 


7B 
62 


wissen wollen 


AND 
STa 
LDA 
AND 
cLc 
ADC 
ASL 
ELC 
ADC 
sta 
LDA 
anc 
sTa 
Loy 
LDA 
STA 
INY 
LDA 
sta 


(SNDADR) „Y 
AUDFI 


AUSWAEHLEN DER 
LAUTSTAERKETABELLE 


8 
3 
a 
& 


RANDOM 
Er 
VOLADR 


VOLADR+1 
VOLADR 


VOLADR+1 


#VOLTAB 


LAUTSTAERKE VERAENDERN 


2 
r 
8 


INC VOLPNT 
IMP XITVBV 


7 

# HILFSSPEICHERSTELLE 
01200 ; 

VOLPNT .HS 88 
DISTOR .HS 28 


Assemblerlisting »Blastsound« für alle, die’s genau 


139 


Frogrammnane 
21250 ; eyanol able menye 
2 Here QORB:FF FF O0 20 95 20 A9 00 <sa> 
A @008:8D GE D4 AF 1A 8D 24 02 <am> 
u DISTOR 2010:A7 2@ 9D 25 @2 A? 40 BD <Aas> 
o2 21298 .HS 8082 NMIEN @018:BE D4 A9 36 aD 7B 20 40 <82> 
23 BisQa .HS ans RANDON 26 D@ 49 AD <ns> 
25  BIısıa .HS 3085 SNDADR 85 80 AD 9A <7C> 
FF 21328 .HS SOrFF SOUNDS 65 89 OA 18 <76> 
21330 ; START A9 0O 69 20 <EA> 
@1340 ; VOLUMENTABELLE VBLANK Bi 80 8D 7C <ı5> 
21350 ; VBLANKI 8 20 D2 AD <25> 
21560 VOLTAB VOLADR 85 82 BA 85 <c2> 
ec BA VOLPNT BA 18 65 85 <B2> 
26 24 HS BEBLBABBAEES VOLTAR 82 A9 00 69 <23> 
26 24 VVBLKD @@ aD 7B 2m <ci> 
20 oo .HS 28960420028 WARMSV 82 @D 7C 20 <an> 
XITVBV 7B 20 AC 62 <&B> 
STARTADRESSE 85 20 07 80 <2B> 
DES PROGRAMMS Ok. 0580 Fr @E <sa> 
21420 ; 84 88 06 84 <CA> 
01430 .DR s2E2 BeiselaujeaiZErZ 
@2E2: va 20 914428 -DA START Assemblerlisting »Blast- 
sound« (Schluß) »Blastsound« als AMPEL-Listing 
em Abı ann u 
Ok. @623: A9 0% Q062@ LDA #sgm 
0625: 8D SF 26 QB6S@ STA RICHTS 
anBıB srrnennnennnneene 2628: 4C 52 06 00642 JMP DUNKLRI 
auazQ ;* * QB65® HELLERI 
QD0S® ;* FARBDIMMER * Q62B: EE SE 86 90668 INC FARBE 
GOB4R ;* * @62E: AD SE 06 98672 LDA FARBE 
BDOSO ;* 22.7.1987 * 9651: 8D 18 DO QQ680 STA COLPF2 
vonsQ ;* * 2634: AC SB 06 02698 IMP EXIT 
22072 ;* Henrik Fisch * ao7om ; 
BaBEO ;= * 02718 ; FARBE WIRD EINE 
DODID HR 20720 ; STUFE DUNKLER GESTELLT 
20108 ; 00738 ; 
00110 ; Dieses Programm wechselt 98748 DUNKLR 
@@812® ; im VBLANK-Interupt SE 86 80750 LDA FARBE 
20130 ; die Hitergrundfarbe BE 0076 AND #sE 
QQ1AQ ; eines GRAPHICS B-Bildschirns 14 @077@ BNE DUNKLRI 
22150 ; 02 00788 LDA #0 x 
QQ16B ; HARDWARE REGISTER SF 26 8877@ STA RICHTG 
22178 ; SE 86 BO802 LDA FARBE 
Da18: @218@ COLPFZ .EQ sD218 @esie cıc 
NMIEN .EQ $D42E 19 208208 ADC #18 
; SE 86 02830 STA FARBE 
3 08 - EQUATES 18 DD 0840 STA LOLPFZ 
% SB 8& 20850 JMP EXIT 
WBLKD .EQ #224 BB858 DUNKLRI 
XITVBV .EQ $E462 SE B& 980878 DEC FARBE 
E2 SE 86 BBESB LDA FARBE 
5 PROGRAMMABSPEICHERUNG 18 DD 90898 STA COLPF2 
5 00908 ; 
„OR 5688 BR71D ; VERLASSE VBLANK-ROUTINE 
-TA 5600 Q0920 ; 
TR "DzFARBDIM. COM” 28930 Exır 
W656: AC 62 E4 QBPaD IP XITVBV 


@61S: 
618: 


26 


54 


26 


Sara 


INITIALISIERT DIE 
VBLANK-ROUTINE 


InIT 
Lpa 
sta 
Lpa 
sta 
LDA 
sTa 
LDA 
sta 
RTS 


“2 
NMIEN 
AVBLANK 
WVBLKD 
/VBLANK 
WVBLKD+1 
#440 
NMIEN 


VBLANK-ROUTINE 
WIRD BEI JEDEM VBI 
ANGESPRUNGEN 


LDA RICHTG 
BMI DUNKLR 


FARBE WIRD EINE 
STUFE HELLER GESTELLT 


LDA FARBE 
AND #$E 
CMP #sE 
BNE HELLERI 


3; STARTADRESSE 


„OR $2E2 
„DA INIT 


Programmname :D:FARBDIN. Com 


Laenge :184 Bytes 
GBAB:FF FF 00 86 60 Q& A9 OR <rc> 
@@B8:9D BE DA A9 15 SD 24 02 <7C> 
26 SD 25 22 A9 42 SD <2A> 
D4 60 AD SF 06 38 ID <69> 
SE 06 29 BE C9 BE DB <11> 
#9 80 8D SF 86 ac 52 <14> 
EE SE 06 AD SE 86 8D <52> 
DO AC SB 96 AD SE 86 <5D> 
QE DO 14 A? DQ ED SF <52> 
AD SE 86 18 69 10 8D <D2> 
96 8D 18 D® AC SB 86 <SE> 
SE 06 AD SE 6 aD 18 <SE> 
4C 62 E4 90 20 a0 am <DD> 


»Farbdimmer« im AMPEL-Format 


tine befindet. Das macht man über die 
Speicherstellen 546 und 547 ($222 
und $223) oder 548 und 549 ($224 und 
$225). Der Computer springt bei 
einem VBLANK-Interrupt nacheinan- 
der zu den beiden Adressen, die er in 
diesen Speicherstellen liest. In den 
ersten beiden Speicherstellen steht 
die Adresse der eingebauten 
VBLANK-Routine. Die zweite Adresse 
ist normalerweise Nebensache; mit 
ihr läßt sich ganz einfach eine eigene 
Routine direkt an die eingebaute 
VBLANK-Routine anhängen. 

In 548 und 549 wird also die Start- 
adresse der eigenen Routine 
geschrieben. Vorher sollte man 
jedoch den Interrupt abschalten, denn 
wenn der Interrupt ausgerechnet dann 
auftritt, wenn das Low-Byte der 
Adresse bereits in 548 steht, das High- 
Byte jedoch noch nicht übertragen ist, 
springt der Computer zu dieser fal- 
schen Speicherstelle und hängt sich 
meistens auf. 

Wahrscheinlich werden Sie sich 
jetzt fragen, wie Sie einen »Non Mas- 
kable Interrupt« abschalten sollen. 


Der Atari hat jedoch ein Register, mit 
dem sich auch dieser Interrupt verhin- 
dern läßt. Die Speicherstelle liegt bei 
Adresse 54286 ($D40E). Löscht man 
hier Bit 6, so ist der VBLANK-Interrupt 
abgeschaltet. Erst jetzt setzt man die 
Adresse auf die eigene Routine. 

Nachdem die VBLANK-Routine 
abgeschlossen ist, sollder Programm- 
ablauf wieder aufgenommen werden. 
Dafür gibt es einen speziellen Maschi- 
nenbefehl des 6502, den »RTl«, 
»Return from Interrupt«. Dieser darf 
jedoch nicht verwendet werden, denn 
bei jedem VBLANK-Interrupt sichert 
das Betriebssystem die Register des 
6502 auf dem Stack. Diese stehen 
damit dem Programmierer für die 
Dauer der Routine allesamt zur Verfü- 
gung. Nachdem die Routine ihre 
Arbeit beendet hat, müssen diese 
Registerinhalte jedoch wieder restau- 
riertwerden, damit das unterbrochene 
Programm ohne Probleme weiterar- 
beitet. Für diese Aufgabe gibt es im 
Betriebssystem ebenfalls eine Rou- 
tine. Sie nenntsich »XITVBV« und wird 
aufgerufen, indem man in Assembler 
zur Adresse 58466 ($E462) springt. 
Dieses Programm verläßt danach die 
Interrupt-Routine. 

Die beiden Programme demonstrie- 
ren den VBLANK-Interrupt. Das erste 
Programm läßt im Textmodus nachein- 
ander alle Farben aufleuchten. Das 
zweite Programm läßt eine Klangfolge 
ertönen, die einem bekannten Spiel 
nachempfunden ist. Wie beim 
VBLANK-Interrupt üblich, lassen sich 
trotzdem alle Funktionen des Compu- 
ters weiterhin benutzen. Anhand der 
Assembler-Listings sehen Sie, wie die 
Programme funktionieren. Die Pro- 
gramme lassen sich nur mit der 
<RESET>-Taste abschalten. (hf) 


Wichtige Systemvariablen 
Name ‚Adresse Erklärung 
Dezimal Hexadezimal 
‚Werte größer 127 leiten den Attrakt-Mode ein 
COLORO 708 2C4 Entspricht SETCOLOR 0... 
coLoR1 709 2C5 Entspricht SETCOLOR! 
COLOR2 710 2C6& Entspricht SETCOLOR 2,.. 
COLOR3 7 2C7 Entspricht SETCOLOR 3... 
COLOR4 12 2C8 Entspricht SETCOLOR 4, 
COLBK 53274 DO1A Farbregister für COLOR4 
COLPFO 53270 D016 Farbregister für COLORO 
COLPFi 53271 Do17 Farbregister für COLOR? 
COLPF2 53272 D018 Farbregister für COLOR2 x 
COLPF3 53273 DO19 Farbregister für COLOR3 
'NMIEN 54286 D40E Wenn Bit 6 gelöscht ist, wird der VBLANK- 
Interrupt abgeschaltet 
RTCLOK 18 12 ‚System-Timer, wird in 50stel-Sekunden- 
‚Schritten erhöht 
19 13 Überlauf von RTCLOK Speicherstelle 18 
20 14 Überlauf von RTCLOK Speicherstelle 19 
VVBLKD 548,539 224,225 Beginn einer VBLANK-Routine, die nach der 
“ Systemroutine ausgeführt wird ı 
| VVBLKI 546547 222,223 Beginn der System-VBLANK-Routine 
XITvBv. 52466 E462 Beendet eine VBLANK-Routine t 


Taktische Gefechtssimulation 
3600 Felder großes Spielfeld 
mit topografischem Gelände 
70 Waffensysteme aus WKII 
1-2 Spieler, Spieldauer 5 Std. 
Deutsches Handbuch 
‚Apple, C64, Atari, IBM, Amiga 
M 99,- 


Strategische Simulation im 
Südpazifik 1942-1943 
79 Schiffsklassen, Träger, 
Schlachtschiffe, Zerstörer etc. 
Deutsches Handbuch 
1-2 Spieler, Spieldauer 50 Sıd. 


Apple, C64 DM 129,- 


RUSSIA 1941-45 für Fort- 
geschrittene. Hb. engl. 


Apple, C64 DM 139,- 


30 weitere Strategie- und 
Phantasiespiele ab Lager 
lieferbar. Katalog 1,- Bfm. 


COMPUTER—- SERVICE 
Postfach 2526 - 7600 Offenburg 
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Neues aus den USA 


n Programmiersprachen für 
BR: Atari-Computer herrscht 

bislang kein Mangel. Von 
Basic, von dem es bislang sieben ver- 
schiedene Interpreter gibt, über Pas- 
cal zu Assembler wird alles angebo- 
ten, was das Herz begehrt. Sogar 
Forth und die KI-Sprache Lisp sind für 
die kleinen Computer erhältlich. Nur 
eine Sprache steht bislang nicht in 
einer vernünftigen Implementation zur 
Verfügung: C. Gut, es gibt den »Deep 
Blue C«-Compiler von Antic und den 
»C/65«-Compiler von OSS. Beide Pro- 
gramme weisen aber den Nachteilauf, 
daß sie weder die Standardfunktionen 
von C enthalten, noch daß sie beson- 
ders Speicherplatz-optimierend arbei- 
ten. Zudem compilieren sie ein Pro- 
gramm gähnend langsam. 


Der lichtschnelle 
C-Compiler 


Es grenzt fast an ein Wunder, daß 
doch noch eine Firma einen C-Com- 
piler entwickelte und ihn für die 
kleinen Atari-Computer verfügbar 
machte. Das Produkt nennt sich 
»Lightspeed C«-Compiler von Clear- 
star Softechnologies. Das Programm 
wird auf einer Diskette geliefert und 
benötigt 48 KByte Speicher. Es läuft 
nicht nur auf den XU/XE-Computern, 
sondern auch auf den alten 400er/ 
800er-Computern von Atari. 

Soviel vorweg: In dem Compiler ist 
der gesamte von Kernighan und Rit- 
chie vorgeschlagene Sprachumfang 
enthalten. Damit hat man eine 
moderne Sprache zur Verfügung, die 
vollständig kompatibel zu anderen 
Computern ist. Auch wenn es sich 
lächerlich anhört, aber ein in C 
geschriebenes Programm läuft auf 
Computern wie Atari ST, Amiga oder 
IBM-PC genauso wie auf Mini- und 
Großcomputern wie VAX und Cray, 
und dank des Lightspeed-Compilers 
nun auch auf dem kleinen Atari. Eine 
Veränderung muß man allerdings in 
Kauf nehmen. Da der Atari die 
geschweiften Klammern nicht kennt - 
diese sind bei jeder Funktionsdefini- 
tion in C notwendig - werden diese 
durch Klammern mit vorangestelltem 
Dollar-Zeichen ersetzt. 

Selbstverständlich arbeitet das Pro- 
gramm mit einer in den 130 XE einge- 
bauten RAM-Disk zusammen. Die 
Compilier- und Linkzeiten verringern 
sich dadurch weiter. Dazu ein paar 


Wenn auch die kleinen Atari- 
Computer in Deutschland rela- 
tiv stark vernachlässigt werden, 
in den USA ist dies nicht so. Die 
interessantesien neuen Pro- 
dukte stellen wir hier kurz vor. 


Daten: Der Lightspeed-C-Compiler 
benötigt zum Compilieren eines Prim- 
zahlen-Programms, das als Source- 
Text auf der Diskette 1 KByte belegte, 
eine Minute. Dabei entsteht ein 
Maschinenprogramm, das nur 3 Sek- 
toren auf der Diskette beansprucht. 
Diese Zeiten und Programmlängen 
lassen sich mit einem mitgelieferten 
»Optimizer« weiter verbessern. 
Tatsache ist, daß mit dem Light- 
speed-C-Compiler auf dem Atari eine 
moderne Programmiersprache zur 
Verfügung steht, die den Vergleich mit 
anderen Implementationen auf größe- 
ren Computern nicht zu scheuen 
braucht. Außerdem läßt sich jetzt 
schon ein wenig im vorausüben, wenn 
später auf ein größeres System umge- 
stiegen werden soll, wie zum Beispiel 
auf einen Atari ST oder einen Amiga. 
Der Compiler ist für 39,95 Dollar bei 
folgender Adresse erhältlich: 
Clearstar Softechnologies 
1501 Wood Avenue 36 
Sumner, WA 98390 
US.A. 


paralleler aa 
ri u 
Modem-Anschluß 


Ein weiteres interessantes Produkt 
stellt die Firma ICD her. Diese Firma 
sollte man als Atari-8-Bit-Enthusiast 
sowieso im Auge behalten. Das Pro- 
dukt nennt sich »MIO-Board« und wird 
an den parallelen Bus der XL-Compu- 
ter angeschlossen. 

Zum Beispiel ist auf der Platine ein 
Centronics-Port und ein RS232-kom- 
patibler serieller Anschluß enthalten. 
Damit lassen sich Modens betreiben 
(in Deutschland noch nicht zugelas- 
sen), oder Drucker anschließen, die 
diese Art der Datenübertragung ver- 
langen. Am interessantesten ist 


jedoch die RAM-Disk, die in einer Ver- 
sion von 256 KByte und 1 MByte 
erhältlich ist. Die RAM-Disk wird von 
einem mitgelieferten DOS unterstützt 
und läßt sich beliebig in verschiedene 


Laufwerke aufteilen. Das Besondere 
an der RAM-Disk ist, daß sich der 
Computer ruhig aufhängen darf. Bei 
einer normalen RAM-Disk ist deren 
Inhalt dann verloren. Da das MIO- 
Board aber eine separate Stromver- 
sorgung aufweist, ist ihr Inhalt auch 
nach dem Ein- und Ausschalten des 
Computers noch vorhanden. 

Die letzte Eigenschaft des MIO- 
Boards ist zugleich auch die erstaun- 
lichste Einrichtung. Es lassen sich bis 
zu 8 Harddisk-Laufwerke mit jeweils 
bis zu 16 MByte Speicherkapazität 
anschließen. Auch wenn diese Spei- 
cherkapazität für die kleinen Compu- 
ter unsinnig erscheint, so manches 
Mal wünscht man sich doch eine Fest- 
platte, besonders dann, wenn bei 
einem Programmiervorhaben zum 
hundertsten Mal die Diskette gewech- 
selt wird. 

Das MIO-Board ist bei 

ICD 

1220 Rock Street 

Rockford, IL 61101-1437 

USA. 

für 199 Dollar mit 256 KByte und für 
349 Dollar mit 1 MByte erhältlich. 


Universelles 
Malprogramm 


Wenn ein neues Malprogramm vor- 
gestellt wird, muß es schon einiges 
können. Und wenn es sich durchset- 
zen soll, muß es wenigstens zu einem 
der drei bisher meistverkauften Mal- 
programme kompatibel sein (»Micro 
Painter» von Datasoft, »Atari Artist« 
von Atarioder»Fun with Art«).»Blazing 
Paddles« von Baudville hält diesen 
‚Anforderungen stand. Es läßt sich mit 
einem Joystick, einem Grafik-Tablett, 
einem Lichtgriffel oder sogar mit Dreh- 
regiern betreiben. 

Blazing Paddles unterstützt im 
Gegensatz zu anderen Malprogram- 
men mehrere Grafikstufen. Neben 
den üblichen Befehlen zum Zeichnen 
von Linien, Kreisen und Boxen, zum 
Festlegen der Farben und zum Spei- 
chern und Laden von Diskette, besitzt 
es Befehle zum Laden von Bildern in 
den Formaten der oben angegebenen 
Malprogramme. Blazing Paddles ist bei 
Baudville 
1001 Medical Park Drive SE 
Grand Rapids 
MI 49506 
US.A. 
für 34,95 Dollar erhältlich. 
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Komponieren ohne Noten 


asic heißt das neueste Pro- 
gramm der Firma Rätz- 
Eberle. Dabei handelt es 


sich um einen softwaremäßigen 
Musiksynthesizer für die kleinen Atari 
XL/XE-Computer. Solch ein Pro- 
gramm ist vor einiger Zeit schon ein- 
mal erschienen. Gemeint ist »The 
Soundmachine«, mit der sich fan- 
tastisch klingende Musikstücke ent- 
wicklen und in eigene Programme ein- 
binden lassen. Das Besondere an der 
Soundmachine ist aber ihre Benutzer- 
freundlichkeit. So wird fast alles mit 
dem Joystick gesteuert. Die einzelnen 
Noten eines Musikstücks lassen sich 
mit dem Joystick auf richtigen Noten- 
\inien plazieren. Das setzt allerdings 
voraus, daß man Noten lesen kann. 
Der Ungeübte weiß mit dieser Darstel- 
lungsmethode wenig anzufangen. 
Masic soll diese Nachteile umgehen, 
indem für das Programm eine eigene 
Musik-Programmiersprache ent- 
wickelt wurde. 

Wenn man Masic bestellt, bekommt 
man eine Programmdiskette, die das 
Masic-Programm selbst sowie zwei 
Hilfsprogramme und eine 28 Seiten 
starke Anleitung enthält. Auf der 
Schutzhülle der Diskette ist der Name 
des Bestsellers zusammen mit einer 
Codenummer abgedruckt. Diese 
Nummer muß beim Start des Pro- 
gramms zusammen mit dem Namen 
in den Computer eingegeben werden. 
Nur wenn die Nummer und der Name 
mit den im Programm gespeicherten 
Daten übereinstimmen, ist Masic 
funktionsfähig. 

Nach diesem etwas kuriosen aber 
sehr anwenderfreundlichen Kopier- 
schutz —- die Programmdiskette ist 
nicht weiter kopiergeschützt - wird 
man vom Programm nach der Tasta- 
turbelegung gefragt. Dies erscheint 
ein bißchen unsinnig. Warum sollte 
man schließlich eine Tastatur, an die 
man sich gewöhnt hat, plötzlich umbe- 
legen? Es wird jedoch verständlich, 
wenn man sich das Konzept von Masic 
etwas genauer anschaut. Nach dieser 
Eingabe befindet man sich nämlich im 
Editor von Masic. Hier wird, ähnlich 
wie bei einer normalen Programmier- 
sprache, das Musik-Programm einge- 
geben. Dabei läßt sich das Programm 
beliebig auf dem Bildschirm gestalten 
(siehe Bild). In der unteren Zeile des 
Editors werden ständig die Spalte und 
Zeile angezeigt, in der sich der Cursor 
gerade befindet. Schnappt man sich 
die Anleitung und liest die Bedienung 
des Programmeditors durch, so wird 


Nach Compilern für Programme 
gibt es in letzter Zeit Compiler, 
mit denen sich sehr gut klin- 
gende Musikstücke entwickeln 
lassen, die auch in eigene Pro- 
gramme einbindbar sind. 


sofort deutlich, warum der Program- 
mierer von Masic eine deutsche Tasta- 
turbelegung sowie die Spalten- und 
Zeilenanzeige eingebaut hat: Der Edi- 
tor von Masic läßt sich gleichzeitig als 
Texteditor verwenden, zum Beispiel 
um Briefe zu schreiben. Der Autor des 
Handbuchs weist auch extra darauf 
hin, daß das Handbuch mit dem Masic 
Texteditor geschrieben wurde. 


# 1. Der Huellkurvenbereich 


B 
5 Huellkurve Nr. @ 


} 
4 812 15 1413 12 11 10 9 
988776666 
3553535 hHaaAaA 35 
ss Su m2 22272 
en a Ten 
aoeem:eeaa—o 
CH} 


# 2. Der MASIC-Programateil 


[ 

marke ı 

t8 ; Alle folgenden Noten 
} sind Achtelnoten 

ei al ei bi ei gl al 

ei c2 e1 d2 el bl cz 

ei al ei bi ei gi al 

ei cZ ei d2 el bi e2 

ei-b1 

rts 


marke 2 
} 

ei #1 ci glei ei #1 
ei ar cı bIcı glal 


ei #1 c1 glei wi #1 
<1al ci bl ei gl al 


g1 c2 gi #2 a1 bi e2 
gi 02 91 #2 91 d2 e2 
gi c2 91 2 gi di cz 
91 e2 91 #2 g1 d2 e2 


al 02 al e2 al c2 d2 
al #2 a1 g2 al e2 #2 
al d2 al eZal c2 d2 
ai 42 al g2 al e2 #2 


start 5 Beginn des Programnc 
reite 10 ; Grundtempo Achtelnote 
stat © @ 1 ; Tonkanal ® einschalten 
kg ® 160 ; kKlangart Kanal ® setzen 
nku om 5 Huellkurve Nr. @ 

# fuer Kanal ® 
rel ®® 1 ; Relativmodus der Note 

# fuer Kanal @ einschalten 
marke 4 
jer ı ; Unterprogramm 1 aufrufen 
jer ı 
isr 2 
Jar ı 
jer 3 
3er 3 
jap 4 3 Endlosschleite 


Doch der Hauptzweck des Editors 
liegt darin, Musikstücke einzugeben 
und Klänge zu erschaffen. Jedes 
Masic-Programm besteht aus einem 
Hüllkurventeil und einem Notenteil. 
Jeder der beiden Teile wird mit recht- 
eckigen Klammern eingeschlossen. 
Dazwischen dürfen beliebige Kom- 
mentare stehen. In ein Programm las- 
sen. sich Kommentare einfügen, 
indem davor einfach ein Semikolon 
gestellt wird. 

Eine Hüllkurve hat die Aufgabe, den 
Lautstärkeverlauf eines Klangs zu 
bestimmen. Ein Klavierklang zum Bei- 
spielwird sofort sehr laut, sinktdannin 
der Lautstärke langsam ab und geht 
fast augenblicklich auf Null zurück, 
wenn die Taste wieder losgelassen 
wird. Im Gegensatz dazu ertönt ein 
Trompetenklang zwar auch sofort in 
voller Lautstärke, bleibt dann aber für 
die Dauer des Tons in der Lautstärke 
beständig. Zum Simulieren dieser 
Lautstärkeverläufe sind die Hüllkur- 
ven da. Da der Soundchip der Atari- 
Computer maximal 16 Lautstärke- 
werte verarbeitet, erfolgt die Angabe 
der Hüllkurven beim Masic auch in 
diesen 16 Werten. Die Hüllkurve 
besteht damit im Programm aus einer 
Folge von Zahlen. Jede Zahl stellt 
einen Lautstärkewert zu einem 
bestimmten Zeitpunkt der Hüllkurve 
dar. Eine Hüllkurve setzt sich dabei 
aus maximal 255 Werten zusammen. 
Da das Masic-Programm zum Bestim- 
men der Notenlängen den VBLANK- 
Interrupt der Atari-Computer ausnutzt, 
ist ein Hüllkurvenschritt genau eine 
50stel Sekunde lang. Der Vorteil die- 
ser Hüllkurven-Programmierung liegt 
nun darin, daß nicht nur an- und 
absteigende Lautstärkeverläufe pro- 
grammiert werden können. Auch 
Effekte, wie zum Beispiel das An- und 
Abschwellen eines Tons bei einem 
Vibraphon oder das langsame Anstei- 
gen und dann plötzliche Abfallen der 
Lautstärke bei einem Tonband, das 
rückwärts läuft, werden erzeugt. Der 
Nachteil dieser Programmierung 
besteht darin, daß alle Notenwerte 
umständlich in den Computer einge- 
tippt werden müssen und daß man bei 
jeder Änderung erst das ganze Pro- 
gramm neu starten muß, ehe man den 
Klang hört. Es gehört also etwas 
Übung dazu, einen Klang richtig 
schön zu »komponieren«. 

Der zweite Programmteil umfaßt die 
Notenwerte und verschiedene Steuer- 
kommandos, mit denen das Musik- 
stück abgespielt wird. Am Anfang 


En 
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einer Notenfolge muß eine Sprung- 
marke stehen, damit das spätere Pro- 
gramm weiß, an welcher Stelle die 
Noten beginnen. Für jeden Notenwert 
wird die Dauer eines Tones und des- 


sen Notenhöhe eingegeben. Die 
Dauer umfaßt dabei eine ganze bis 
eine 32stel Note, mit allen ihren Zwi- 
schenschritten, wie zum Beispiel eine 
Ppunktierte Achtelnote. Die effektive 
Dauer einer Note wird später im Pro- 
gramm angegeben. Falls nun eine 
Folge von Noten die gleiche Länge 
hat, brauchen die Notenlängen nuram 
‚Anfang dieser Folge bestimmt zu wer- 
den. Für alle anderen Noten nimmt 
das Programm dann automatisch 
diese Notenlänge an. Ein Stück, das 
nur aus Viertelnoten besteht, benötigt 
also nur einen Notenlängenbefehl. 

Die Noten werden mit ihrem Namen 
eingegeben. Die Note »H« wird aller- 
dings nach amerikanischem Vorbild 
mit »B« notiert. Der Tonumfang 
erstreckt sich dabei über sieben 
Oktaven. 


Auch als Texteditor 
® 
geeignet 

Die Anzahl der zu spielenden Noten 
eines Stücks ist nur durch den zur Ver- 
fügung stehenden Speicherplatz 
beschränkt. Der Editor stellt dabei 
maximal 17659 Speicherplätze zur 
Verfügung. Da der Editor auch zur 
Textverarbeitung eingesetzt werden 
kann, beansprucht jedes eingetippte 
Zeichen ein Byte. In der Anleitung 
steht über dem zur Verfügung stehen- 
den Speicherplatz eine Bemerkung, 
die die Freude an Masic ein wenig 
trübt. Sollteman einmal mehr Zeichen 
eingegeben haben, als Platz zur Ver- 
fügung steht, kann es sein, daß sich 
das Programm aufhängt. Das ist weni- 
ger schön, liegt aber womöglich 
daran, daß wir eine Vorabversion von 
Masic zum Testen in der Redaktion zur 
Verfügung hatten. 


Neben der Tonhöhe und der Ton- 
dauer gibt es weitere Befehle in Masic, 
mit denen sich Musikstücke einfach 
programmieren lassen. Wie in ande- 
ren Programmiersprachen existieren 
zum Beispiel Sprungbefehle zur Pro- 
grammierung von Endlosstücken, 
sowie Unterprogrammaufrufe, damit 
ein und dieselbe Notenfolge nicht 
mehrmals eingegeben werden muß. 
Nebenbei bemerkt, spart das Spei- 
cherplatz. Wie schon angedeutet, gibt 
es einen Befehl, der die absolute 
Länge einer Note in 50stel-Sekunden- 
Schritten festlegt. Dann existieren 
Befehle, die Halleffekte, Glissandi- 
sowie Tremolo-Effekte erzeugen. Da 
die komponierten Musikstücke auch in 
eigene Programme eingebunden wer- 
den können, gibt es Wege, ein Musik- 
stück mit externen Ereignissen zu 
synchronisieren. Es ist zum Beispiel 
keine Schwierigkeit, in einem selbst- 
geschriebenen Spiel auf Knopfdruck 
ein Musikstück erklingen zu lassen. 

Das so zusammengestellte Musik- 
stück wird mit einer Tastenkombina- 
tion auf Diskette gespeichert. Eine 
andere lädt ein bereits gesichertes 
Stück wieder in den Speicher. Da 
Masic ein Compiler ist, muß jedes 
Musikstück zuerst kompiliert werden, 
bevor man es sich anhören kann. 
Einige eingefleischte Computerbesit- 
zer schrecken jetzt wahrscheinlich 
zurück, denn das Kompilieren von 
Programmen ist normalerweise eine 
zeitaufwendige und fehlerträchtige 
Angelegenheit. Nicht so beiMasic. Ein 
Knopfdruck genügt, um das Pro- 
gramm zu kompilieren, selten dauert 
dieser Vorgang länger als ein paar 
Sekunden. Einer weiterer Knopf- 
druck, und das Stück erschallt aus 
dem Lautsprecher eines angeschlos- 
senen Fernsehers oder Monitors. 

Mit Masic ist es aber auch möglich, 
eigenständig lauffähige Programme 
zu erzeugen, die dann vom DOS aus 
geladen werden und die Melodie 
abspielen. Dazu erteilt man kurznach 
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dem Kompilieren einen Speicherbe- 
fehl. Auf der Diskette, die das Musik- 
stück aufnehmen soll, müssen zwei 
Files stehen, die im Lieferumfang des 
Programms enthalten sind. Diese 
Files stellen sozusagen das Runtime- 
Package von Masic dar. Beim Schrei- 
ben auf Diskette werden dann aus die- 
sen Files die Routinen herausgeholt 
und mit dem jeweiligen Musikstück 
verbunden. Auf der Diskette steht jetzt 
ein lauffähiges Programm, das das 
Musikstück abspielt. 


Compiliert auf 
Knopfdruck 


Im geschickt aufgebauten Hand- 
buch wird ausführlich erklärt, wie man 
derart erzeugte Programme in eigene 
Programme einbindet. 

Masic ist ein gut durchdachtes Pro- 
gramm, mit dem sich Musikstücke mit 
sehr professionellem Sound erzeugen 
lassen. Was andere Musikprogramme 
dieser Art versäumt haben, ist hierein- 
gebaut worden. Die an sich hervorra- 
gende Idee, eine eigene Program- 
miersprache zum Gestalten von 
Musikstücken zu verwenden, leidet 
etwas unter der Tatsache, daß Musik 
doch eine sehr emotionale Angele- 
genheit ist. Bei einem normalen 
Instrument wird jede Veränderung am 
Musikstück sofort hörbar. Bei Masic 
müssen erst verschiedenste Parame- 
ter eingeben werden, bis aus dem 
Computer Töne erklingen. Hat man 
jedoch erst einmal Erfahrungen im 
Schreiben von Musikstücken gesam- 
melt, oder steht gar ein Instrument zur 
Verfügung, mit dem sich Tonfolgen 
ausprobieren lassen, ist Masic ein 
ideales Mittel, Musik für die Atari- 
Computer zu komponieren. Wer 
Masic kaufen möchte, sollte sich an 
folgende Adresse wenden: Verlag 
Rätz-Eberle, Melanchthonstr. 75/1, 
Postfach 1640, 7518 Bretten. Das Pro- 
gramm kostet 49 Mark. (hf) 
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Pascal mit 
Assembler-Power 


erheute an derSchuleoder 
an der Universität zum 
ersten Mal eine Program- 


miersprache kennenlernt, beginnt in 
der Regel mit Pascal. Auch in den 
Schulen fängt Pascal an, sich im 
Informatik-Unterricht durchzusetzen. 
Das hat auch gute Gründe. Pascal ver- 
eint große Flexibilität und Geschwin- 
digkeit mit klarer Gliederung. Das ist 
neben der weitgehenden Standardi- 
sierung auch ein Grund, warum viele 
Software-Häuser ihre Programme in 
Pascal entwickeln. 

Aber gerade was das Lernen einer 
Hochsprache angeht, hat Pascal die 
Nase vorne. Man lernt von Anfang an, 
problemorientiert zu denken und die 
Aufgabe erst völlig zu verstehen, 
bevor man ans eigentliche Program- 
mieren geht. Das ist zwar am Anfang 
etwas frustrierend, erweist sich hinter- 
her aber immer als hilfreich. Einge- 
fleischte Pascal-Fans pflegen auf die 
Startschwierigkeiten zu antworten, 
daß man beim Laufenlernen auch 
mehr hingefallen als auf zwei Beinen 
gestanden sei. Aber das sei schließ- 
lich kein Argument, um sein ganzes 
Leben auf allen Vieren durch die Welt 
zu krabbeln. Wer will ihnen in diesem 
Punkt widersprechen? 

Pascal hat für den Einsteiger aber 
noch weitere Vorteile, da sich viele 
Sprachen an Elemente aus Pascal 
anlehnen. Der spätere Umstieg auf 
»C« oder »Modula 2« bereitet keine 
Probleme, weil sich diese Sprachen 
sehr ähneln. Pascal ist also in keinem 
Fall eine Sackgasse. 


Kyan contra Turbo? 


Wenn man die Entwicklung und Ver- 
breitung von Pascal betrachtet, findet 
man eine Art Generationenwechsel, 
der mit dem Erscheinen des legendä- 
ren »Turbo-Pascal« zusammenhängt. 
Früher dominierte »UCSD-Pascal« die 
Szene, das sich noch stark an die Vor- 
gaben des Pascal-Erfinders N. Wirth 
hielt. Doch mit der Entwicklung der 
Computer zeigtesich, daß man fürden 
täglichen Einsatz mehr braucht, als 
man sich seinerzeit vorstellen konnte. 

Mit dem Auftauchen von Turbo- 
Pascal der bekannten Firma Borland 
wandelte sich die Pascal-Szene. Mit 
Turbo-Pascal hat diese Sprache den 


Es gehört zu den weitverbreite- 
ten Vorurteilen, daß es auf den 
8-Bit-Ataris keine leistungsfähi- 
gen Programmiersprachen gibt. 
Kyan-Pascal widerlegt dies! 


Sprung aus dem Schatten der reinen 
Lehrsprache geschafft. Heute gibt es 
eigentlich keine Anwendung, die nicht 
auch in Pascal geschrieben werden 
kann. Für die PCs gibt essogar Spiele, 
die in Pascal programmiert wurden. 

Dem Atari-Besitzer kann es aber 
eigentlich gleich sein, denn es wird 
keine der beiden Pascal-Versionen für 
die 8-Bit-Ataris angeboten. Scheidet 
damit der Atari als Lerninstrument und 
Pascal als Programmiersprache auf 
dem Atari aus? Mitnichten! 


Rechnung ohne den Wirt(h) gemacht, 
wenn man sich auf Angaben über 
Standard-Pascal verläßt. Nebenbei 
sind auch Funktionen zur Stringbe- 
handlung wie unter Turbo-Pascal 
implementiert. Was den Sprachum- 
fang angeht, ist der Compiler also auf 
dem neuesten Stand der Dinge. 


Komfortable 
Kommandos 


Wie gestaltet sich nun der Umgang 
mit Kyan-Pascal? Der Compiler wird 
zusammen mit einem Text-Editor und 
dem Kommandbointerpreter »KIX« für 
Atari DOS 2.5 geliefert. Durch dieses 
gut abgestimmte System verläuft die 
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Seit fast zwei Jahren wird der schon 
auf dem Apple Il erfolgreiche »Kyan- 
Pascal«-Compiler auch für den 8-Bit- 
‚Atari mit mindestens 64 KByte ange- 
boten. Dabei handelt es sich nicht um 
eine abgemagerte Version des Apple- 
Originals, sondern um ein vollständi- 
ges und sehr leistungsfähiges 
System. Schon beim ersten Durch- 
blättern des englischen Handbuchs 
sieht der Pascal-Kenner, daß. Kyan- 
Pascal eine entscheidende Grundvor- 
aussetzung für die sinnvolle Anwen- 
dung eines Pascal-Compilers erfüllt: 
Es beherrscht den Pascal-Sprach- 
standard voll und ganz. Was nützt 
schon ein Spar-Compiler, bei dem 
gerade die interessantesten Funktio- 
nen, die das Flair von Pascal ausma- 
chen, fehlen? 

Der Compiler 


verarbeitet den 


gesamten Umfang von ISO-Pascal, 
das weitgehend der ursprünglichen 
Definition durch ‘Jensen/Wirth ent- 
spricht. Hier hat man also nicht die 


Arbeit mit Kyan-Pascal ähnlich wie 
unter den Betriebssystemen DOS XL, 
MS-DOS und UNIX. Viele Befehle von 
KIX sind den erwähnten Betriebs- 
systemen sogar entliehen. Eine Funk- 
tion verleiht dem Ganzen ganz beson- 
ders den Hauch eines Großrechners. 
Bei den meisten Kommandos kann 
das Ausgabegerät mit dem Größer- 
Zeichen » > «bestimmt werden. Zum 
Beispiel gibt »LS ».- >P« das Direc- 
tory auf dem Drucker aus. 


Eleganter Editor 


Wie bei allen Pascal-Systemen sind 
Compiler und Editor voneinander 
getrennte Programmg, die erst über 
KIX geladen werden. Das Schreiben 
oder Verbessern eines Pascal- 
Programms beginnt also immer mit 
dem Laden des Bildschirmeditors 
»ED«. Beim Editieren stehen dem 
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Benutzer nicht nur Funktionen zum 
Löschen und Einfügen von Zeichen 
und Zeilen zur Verfügung. Auch 
Befehle zum Ausschneiden, Kopieren 
und Löschen von Textblöcken fehlen 
nicht. ED entpuppt sich beim Arbeiten 
als kleines, sehr komfortables Text- 
verarbeitungssystem. Durch seinen 
vollständigen Befehlssatz und die 
hohe Arbeitsgeschwindigkeit ist es 
bestens zur Eingabe von Pascal- 
Programmtexten geeignet. 


Inline-Assembler 


Ist das Programm fertig eingege- 
ben, verläßt man den Editor, um den 
Compiler zu starten. Das über 26 
KByte lange Programm wird von KIX 
aus aufgerufen, zum Beispiel durch 
»PC HALLO.P«. 

Durch die Trennung von Editor und 
Compiler gestaltet sich das Arbeiten 
öfter etwas kompliziert. Tritt nämlich 
ein Fehler auf, muß man wieder den 
Editor laden, um nach dem Fehler zu 
suchen, diesen verbessern und 
erneut mit dem Compilieren anfan- 
gen. Turbo-Pascal wurde übrigens 
auch dadurch bekannt, daß es Compi- 
ler und Editor gleichzeitig im Speicher 
hält. Bei langen Programmen, die fast 
immer kleine Bugs enthalten, dauert 
es daher manchmal etwas länger, bis 
man das Programm endlich testen 
kann. Das gehört zu den angespro- 
chenen Problemen für Pascal- 
Neulinge. Die Arbeit lohnt sich aber. 

Der Compiler wandelt das angege- 
bene Pascal-Programm direktin einen 
Assembler-Quelltext um, der an- 
schließend automatisch vom dazuge- 
örigen Makro-Assembler zum aus- 
führbaren Programm assembliert 
wird. 

Diese ungewöhnliche Lösung hat 
einige bestechende Vorteile gegen- 
über einer Direkt-Compilierung in 
Maschinensprache. Zum einen kann 
man dadurch ganze, vollständig in 
Assembler geschriebene Prozeduren 
einbinden. Zum anderen ist auch eine 
nachträgliche Optimierung des 
erzeugten Maschinencodes erlaubt. 
Zusätzlich kann man sogar genau wie 
bei Turbo-Pascal Assembler-Befehle 
‚direkt in das Pascal-Programm hinein- 
schreiben. Der Assembler versteht 
nicht nur gängige Pseudo-Opcodes, 
sondern verarbeitet auch einfache 
Makros. 

Besonders an dieser Funktion zeigt 
sich das durchdachte Konzept des 
Compilers. Er bietet nicht nur den 
Komfort von Pascal, sondern erlaubt 
auch sehr schnelle und variable Pro- 
gramme, die auch eingefleischte 


Assembler-Freaks befriedigen. Es ist 
sogar möglich, schwer umzusetzende 
Programmteile in Pascal zu schrei- 
ben, um den Assembler-Teil in ein 
anderes Assembler-Programm zu 
übernehmen. Das bietet sich beson- 
ders bei aufwendigen Berechnungen 
an, die in Assembler nur sehr schwie- 
rig zu programmieren sind. 

Die fertigen Maschinensprach- 
Programme sind sehr kurz, da die 
Pascal-Laufzeitbibliothek, die die 
wichtigsten Standardprozeduren ent- 
hält und auch die Abarbeitung des 
Programms überwacht, nicht mit ein- 
gebunden, sondern erst bei Bedarf 
von Diskette geladen wird. Dies hat 
den großen Vorteil, daß man auf der 
Diskette eine Menge compilierte Pro- 
gramme unterbringen kann. Wer das 
häufige Diskettenwechseln von ande- 
ren Compilern her kennt, weiß diese 
Tatsache zu schätzen. 

Bei den Diskettenzugriffen ist es 
den Entwicklern wiederum gelungen, 
das System sehr anwenderfreundlich 
zu machen. Alle Dateien werden von 
KIX zunächst auf der RAM-Disk 
(sofern vorhanden) gesucht. Das 
bedeutet, daß viele Teile nur ein einzi- 
ges Mal geladen und beim nächsten 
Zugriff direkt aus dem Speicher geholt 
werden. Durch diesen einfachen Trick 
fällt bei genügendem Speicheraus- 
bau die zusätzliche Ladezeit über- 
haupt nicht ins Gewicht. Mit einem 
‚Atari 130 XE hat man also von Anfang 
an einsehrschnelles System. Erfahre- 
nen Programmierern wird es aller- 
dings auch nicht schwerfallen, die 
Standardbibliothek direkt in das fer- 
tige Programm zu übernehmen. 


Kurz und schnell 


Wie steht es nun mit der Geschwin- 
digkeit des ausführbaren Pro- 
gramms? In der Bedienungsanleitung 
wird versprochen, daß es in etwa die 
gleiche Geschwindigkeit wie ein unter 


gramm auf einem mit 4 MHz laufen- 
den CP/M-Rechner erreicht. Somit ist 
es beispielsweise mehr als doppelt so 
schnell wie auf einem Commodore 
128 im CP/M-Modus. Dieses Verspre- 
chen wird nach unseren Tests auch 
gehalten. Das heißt in der Praxis, daß 
Kyan-Pascal neben der C-ähnlichen 
Sprache »ACTION!« die schnellste 
höhere Programmiersprache auf dem 
Atari ist. Sie ist zwar nicht so schnell 
wie reiner Assembler-Code, doch 
dafür wesentlich einfacher einzuge- 
ben und zu debuggen als Assembler. 

Nebenbei soll noch lobend erwähnt 
werden, daß Kyan in der jetzt vorlie- 
genden Version sämtliche Schwächen 
der ersten Ausführung beseitigt hat. 

Kyan-Pascal ist eines der Produkte, 
denen man ihre klare Konzeption sehr 
deutlich anmerkt. Es ist klar durch- 
dacht und sehr anwenderfreundlich. 
Man erhält für knapp 250 Mark ein 
Paket, das man auch zum Erlernen 
der Programmiersprache Pascal 
benutzen kann, da sämtliche gegebe- 
nen Standards erfüllt werden. Dazu 
trägt auch das ausgezeichnete Hand- 
buch bei, das 170 der knapp 250 Sei- 
ten einer ausführlichen Einführung in 
die Programmiersprache widmet. Das 
einzige Manko ist, daß die Dokumen- 
tation leider in Englisch geschrieben 
ist. Wenn man sich hier nicht ganz 
sicher fühlt, empfiehlt sich ein deut- 
sches Buch als Unterstützung zum 
Pascal-Lernen. 

Eine der Besonderheiten an Kyan- 
Pascal ist, daß der fortgeschrittene 
Programmierer auch die Komman- 
doumgebung KIX und den mitgeliefer- 
ten Assembler erhält. Dieses starke 
Paar unterstützt auch den Benutzer, 
der nicht nur Pascal programmieren 
möchte. Wer also nach einem relativ 
billigen Pascal-System sucht, ist mit 
einem Atari 130 XE und Kyan-Pascal 
bestens bedient. Es ist eine zukunfts- 
sichere Investition. 

(Julian Reschke/gn) 


Bezugsquelle: Compy Shop, Gneisenaustr. 29, 4330 Mühl- 
heim/Ruhr 


Turbo-Pascal geschriebenes Pro- 
KIx-Kommandos 
CHANGE DEVICE Standardgerät (z.B. »D2:«) einstellen 
PRINT WORKING DEVICE Name des Standardgeräts ausgeben 
LIST DIRECTORY Directory ausgeben 
CONCATENATE Dateiinhalt ausgeben 
Copy Datei kopieren 
MOVE Datei bewegen (kopieren und Quelle löschen) 


REMOVE f 
CHANGE PROTECTION MODE 
SCREEN DUMP 

EDITOR 


PASCAL-COMPILER 
‚ASSEMBLER 


Datei löschen 

Dateistatus ändern (LOCK«...) 
Diskette formatieren 
Bildschirminhak ausdrucken 
‚Rückkehr in DOS 25 

‚Editor aufrufen 
Pascal-Compiler starten. 
‚Assembler starten 
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SOFTWARE-TEST 


Der Siar unter 
den Textverarbeilungen 


lange Zeit Textverarbeitungspro- 

gramme. Als Beispiele seien hier 
der »Atari Schreiber«, »Atari-Wordpro- 
cessor«, »Letter Perfect« oder »Atext« 
genannt. In die Reihe der Altmeister 
reiht sich der »Starlexter« aus der 
»Mister Micro«-Serie des Sybex-Ver- 
lages ein. Dieses Programm vereint 
flexible Textgestaltung mit einfacher 
Bedienung. Ein Programm, auf das 
viele gewartet haben. 

Nach dem Start von Starfexter öff- 
net sich erst einmal lautstark ein 
Schott auf dem Bildschirm und gibt 
den Blick auf das Textfeld frei. Diesen 
Scherz hat man von der C64-Version 
übernommen. Der rasante Beginn 


F: ‚Ataris 8-Bitter gibt es schon 


Zunnzuchsr hat, 


Einfache Bedienung und 
schnelle Verarbeitung sind die 
Hauptmerkmale des Pro- 


gramms »Starfexter«. Es ist eine 
der besten Textverarbeitungen 
für den Atari XL. 


Die aktuelle Cursorposition im Text 
wird in der unteren Bildschirmzeile 
angezeigt. Das Arbeitsblatt kann man 
nach Lust und Laune mit Text füllen, 
ohne daß der Benutzer auf Zeilen- 
länge oder Absätze achten muß. Eine 
deutsche Tastaturbelegung mit 
Umlauten ist selbstverständlich. Kor- 
rekturen sind durch Überschreiben, 


Ist der Text komplett eingegeben, 
kann man sich mit dem Aussehen des 
Schriftstücks, der Formatierung, 
befassen. Durch Druck auf die 
<ESC>-Taste wird der sogenannte 
»Control«-Modus eingeschaltet. Mit 
den Funktionstasten <OPTION>, 
<SELECT> und <START> werden 
dann die Menüs aufgerufen. Die einfa- 
che und einprägsame Menüführung 
macht den Starlexter so anwender- 
freundlich, daß man keine große 
Erfahrung mit anderen Textverarbei- 
tungsprogrammen braucht, um 


schnell mit diesem Programm zurecht 
zu kommen. 

Durch die <START>-Taste gelangt 
man 


im Control-Modus in das 


"Komplett-Formatierung:- 


So präsentiert sich der StarTexter auf dem Bildschirm: Mit deutschen Umlauten und übersichtlichen Menüs 


kündigt aber schon an, was den Be- 
nutzer beim Arbeiten mit dem Starfex- 
ter erwartet: ein spielerisch leicht zu 
bedienendes Programm. 

Das Textfenster, in dem gearbeitet 
wird, umfaßt 21 Zeilen mit je 40 Zei- 
chen. Am oberen Bildschirmrand 
befindet sich eine Informationszeile, 
die auf einen Blick die wichtigsten 
Parameter anzeigt. Durch Scrolling 
bewegt sich das Textfenster auf der 
Arbeitsfläche recht komfortabel senk- 
recht und waagrecht. Der Text darf 
ohne weiteres breiter sein, als er auf 
einmal auf dem Bildschirm dargestellt 
wird. Beim Scrollen im Text ist der Star- 
Texter sehr schnell, so daß auch bei 
großen und umfangreichen Dokumen- 
ten keine merkliche Verzögerung ein- 
tritt. Das ist für alle wichtig, die viel mit 
dem Programm arbeiten wollen. 


Löschen oder Einfügen von Zeichen 
leicht durchführbar. 

Der Starlexter kennt zwei Schreib- 
modi. Entweder überschreibt er alle 
Zeichen, die sich eventuell in der Zeile 
befinden, oder er schiebt sie erst zur 
Seite, bevor der neue Buchstabe 
gesetzt wird. Die Umschaltung zwi- 
schen Überschreiben und Einfügen 
erfolgt bequem per Tastendruck. 

Auch Blockoperationen bereiten 
diesem Programm keine Probleme. 
Ganze Textblöcke können kopiert, 
gelöscht oder verschoben werden. 
Hier bietet der Starlexter alle Stan- 
dardfunktionen, die das Schreiben 
angenehm machen. Beim Verfassen 
von langen Texten kommt es, daß man 
das Geschriebene umstrukturieren 
möchte. Mit diesem Programm ist das 
kein Problem. 


Formatierungs- und Druckausgabe- 
Menü. Hier wird der Text des Arbeits- 
blattes automatisch auf das 
gewünschte Format gebracht und 
dann ausgedruckt. Zur Formatierung 
dienen die mit dem OPTION-Menü 
eingestellten Parameter für Zeilen- 
und Seitenlänge sowie für Einrückung 
von Absätzen. Die Formatierung kann 
sowohl vorher auf dem Bildschirm als 
auch direkt bei der Druckausgabe 
erfolgen. Die vorherige Formatierung 
hat natürlich den Vorteil, daß man sich 
schon am Monitor einen Eindruck vom 
Aussehen des Texts verschafft. 

Im Zusammenhang mit der Forma- 
tierung zeigt der Starlexter aber seine 
größte Schwäche. Normalerweise 
passen bis zu 20000 Zeichen in den 
Textspeicher. Diese Zahl ergibt sich 
aus der maximalen Textbreite von 80 
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Zeichen und der maximalen Zeilen- 
zahl von 250 Zeilen. Wenn man den 
Text aber auf dem Bildschirm forma- 
tiert, geht der Starlexter recht großzü- 
gig mit dem Speicherplatz um. Jede 
Zeile wird nämlich im Textspeicher 
und in einem externen Speichergerät 
mit einer Länge von 80 Zeichen 
berücksichtigt, auch wenn die Zeilen- 
länge zum Beispiel auf 60 reduziert 
wurde. Dieser ungenutzte Teil des 
Speicherplatzes steht aber nicht in 
Form von zusätzlichen Zeilen zur Ver- 
fügung. Der nicht genutzte Teil wird 
durch Leerzeichen aufgefüllt. Wenn 
der Text auf 60 Zeichen pro Zeile for- 
matiert ist, können nur 250 x 60 = 
15000 Zeichen statt der eigentlich 
nutzbaren 20000 Zeichen verwendet 
werden. Diese Platzverschwendung 
ist sehr störend, selbst wenn 250 Zei- 
len eine Menge Text sind. 


Platzverschwendung 


Die Programmautoren sind dabei 
wohl den für sie einfachsten Weg 
gegangen. Für den passionierten Viel- 
schreiber ist das aber sehr ärgerlich, 
damannichtin allen Fällen mit der vol- 
len Zeilenbreite arbeiten will. Längere 
Texte muß man also zwangsläufig auf 
mehrere Dateien verteilen, wodurch 
das Finden des Anschlusses teilweise 
sehr schwierig ist. Wenn nämlich mit- 
ten im Satz der Textspeicher voll ist, 
muß man entweder die Folgedatei an 
exakt derselben Stelle fortsetzen oder 
den Text bis zum letzten Absatz 
löschen. Das scheint der Preis für die 
hohe Verarbeitungsgeschwindigkeit 
zu sein. Der einzige Weg, um den 
Speicher voll zu nutzen, ist, nur zum 
Drucken zu formatieren. 

Mit der <SELECT>-Taste ruft man 
das Disketten-Menü auf, das eine Viel- 
zahl von Diskettenoperationen wie 
Laden und Speichern von Texten, For- 
matieren von Disketten, Umbenennen 
von Dateien, Laden eines anderen 
Zeichensatzes und Anzeigen des 
Directory erlaubt. 

Im <OPTION>-Menü befinden 
sich umfangreiche Einstellungen für 
die Textdarstellung, wie das Setzen 
von Randbegrenzungen, Seiten- 
länge, Wortumbruch, Blocksatz, Zei- 
lenabstand, Zeilenlänge und Position 
der Kopf- und Fußzeile. Die farbliche 
Darstellungsart von Bildschirmrand, 
Cursorfarbe und Blockmarkierung 
läßt sich ebenfalls sehr vielfältig mani- 
pulieren. 

Bevor der Text gedruckt wird, kann 
man ihn sich durch Druck auf die 
HELP-Taste in 80-Zeichen-Dar- 
stellung auf dem Bildschirm ansehen. 
Aufgrund der beschränkten Auflösung 


der Atari-XL/XE-Computer ist die Les- 
barkeit natürlich nicht besonders 
hoch, aber um sich einen Überblick 
über das Aussehen des Schriftstückes 
zu verschaffen, reicht sie allemal aus. 
Sinn macht diese Funktion natürlich 
nur, wenn man den Text auch im Spei- 
cher formatiert. Wählt man aus Platz- 
gründen nur die Druckformatierung, 
nutzt diese sonst sehr nützliche 
Funktion gar nichts. 

Bevor man mit Starfexter etwas zu 
Papier bringen will, sollte man auf 
jeden Fall das Installationsprogramm 
»Install.Bas« starten, Sofern man nicht 
einen voreingestellten Atari-Drucker 
1025 oder 1029 oder einen Epson- 
kompatiblen Drucker verwendet, kann 
man mit dem Installationsprogramm 
seinen Drucker individuell an den 
Starfexter anpassen. Während bei 
anderen Programmen oft Probleme 
mit dem Druckeranschluß auftreten, 
haben sich die Autoren des Starlex- 
ters bei diesem Punkt sehr viel Mühe 
gegeben. So kann man zum Beispiel 
einen Drucker mit Centronics- 
Schnittstelle über die Joystickports 
anschließen, wenn kein Centronics- 
Interface zur Verfügung steht! 
Dadurch kommt der Benutzer auch in 
den Genuß eines Centronics- 
Interfaces, wie es zum Ansteuern der 
meisten Drucker nötig ist. 

Als kleines »Bonbon« gibt es noch 
die Funktion, in der Textverarbeitung 
zu rechnen! Die Programmierer nut- 
zen hierbei den eingebauten Basic- 
Interpreter aus. Die zu berechnenden 
Ausdrücke werden dem Basic-Inter- 
preter als Basic-Zeile »verkauft«, die 
dann berechnet und an Starfexter aus- 
gegeben werden. Diese Funktion 
lohnt sich besonders für denjenigen, 
der mit seinem Computer Rechnun- 
gen schreiben will. Der zusätzliche 
Taschenrechner hat beim Starfexter 
ausgedient. Aber auch für Referate in 
Mathematik oder Physik kann man die 
Rechenfunktion gut gebrauchen. 

Als deutsches Produkt hat der Star- 
Texter wie erwähnt schon von vorn 
herein einen deutschen Zeichensatz 
und die deutsche Tastaturbelegung. 
Nur gibt es fastimmer einen Anlaß, ein 
bestimmtes Zeichen drucken zu wol- 
len, das nicht im Zeichensatz enthal- 
ten ist. Besonders bei fremdsprachi- 
gen Texten tritt dieses Problem häufig 
auf. Der Starlexter weiß hier Abhilfe. 

Mit dem ebenfalls auf der Diskette 
enthaltenen Basic-Programm »Star- 
Font« entwirft man eigene Zeichen- 
sätze für den Staffexter. Drei fertige 
Zeichensätze werden übrigens gleich 
mitgeliefert. Wenn man es wünscht, 
werden die neuen Zeichen auf dem 
Bildschirm dargestellt. Ein Ausdruck 
von Texten mit verschiedenen Zei- 
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chensätzen ist natürlich ebenfalls 
möglich. Das mühsam gezeichnete 
Telefon-Symbol oder die griechischen 
Buchstaben erscheinen beim Starlex- 
ter also garantiert auch auf dem 
Drucker und nicht wie bei anderen 
Programmen nur auf dem Bildschirm. 

Eine Funktion vermißt man bei Star- 
Texter leider. Er beherrscht keine 
Serienbriefe, so daß er zum Beispiel 
für die Vereinsverwaltung nur bedingt 
geeignet ist. Man muß bei jedem Brief 
die Adresse, den Namen und die 
Anrede von Hand ändern. Bei drei 
identischen Briefen stört das noch 
nicht, aber bei zehn oder mehr geht 
diese Funktion sehr ab. Hier zeigt sich 
der Nachteil, daß Sybex im Gegensatz 
zur C64-Version keine passende 
Dateiverwaltung zum Starlexter an- 
bietet. Wer allerdings selten den glei- 
chen Brief an viele Leute verschicken 
möchte, wird die Serienbrief-Funktion 
kaum vermissen. 

Ein großes Lob gebührt dem Pro- 
gramm wegen der Dokumentation. 
Das Handbuch ist ausführlich und ver- 
ständlich geschrieben. Es hilft dem 
Einsteiger, sich schnell auf dem Star- 
Texter einzuarbeiten, so daß die ersten 
Texte nicht lange auf sich warten las- 
sen. Kleine Beispiele im Handbuch 
dienen jeweils zur Verdeutlichung der 
erklärten Funktion. 


Gutes Handbuch 


Die Anleitung hilft aber nicht nur 
dem Neuling. Im Anhang befindet sich 
eine Übersicht aller Funktionen mit 
einer Kurzerklärung. Die Referenz- 
karte hat sich beim täglichen Einsatz 
bewährt, da man nicht erst im Hand- 
buch nachschlagen muß. Auch wer 
viel mit einem Programm arbeitet, 
kennt nur die wichtigsten Standard- 
Befehle auswendig. Die sonstigen 
Fähigkeiten des Programms bezie- 
hungsweise wie man eine Zusatzfunk- 
tion korrekt aufruft, vergißt man 
schnell. Außerdem findet man sich 
auch schnell wieder zurecht, wenn 
längere Zeit nicht mit dem Programm 
gearbeitet wurde. 

Im großen und ganzen erhält man 
für den Preis von 64 Mark ein lei- 
stungsfähiges Programm, das für die 
meisten Heimanwendungen vollauf 
ausreicht. Die Bedienung ist durch 
das ausführliche Handbuch und dank 
der ausgefeilten Menütechnik einfach 
und schnell zu erlernen. Der Starlex- 
ter ist voll und ganz auf den Heimbe- 
reich zugeschnitten und empfiehlt 
sich jedem, der eine unkomplizierte 
Textverarbeitung sucht. 

(H.D. Jankowski/Julian Reschke/gn) 


Atari verbindlich: 
XL-ST-Interface 


Besitzen Sie neben dem Atari 
XL auch seinen großen Bruder, 
einen Atari ST, und möchten 
Programme und Dateien über- 
tragen? Hier ist die Lösung: ein 
XL-STInterface! 


er Aufwand für ein Interface 
D zwischen den beiden Compu- 

tern ist verhältnismäßig ge- 
ring. Sie benötigen einen XL, einenST 
(oder einen 400er/800er), eine kleine 
Schaltung und ein Programm im ST, 
welches alles verwaltet. Sie erhalten 
dann einen aufgerüsteten XL mit zwei 
Diskettenlaufwerken und Drucker, die 
vom ST emuliert werden. Gleichzeitig 
können Sie beliebige Dateien oder 
auch den Inhalt ganzer Disketten vom 
XL zum ST und umgekehrt übertra- 
gen. Durch Änderung des Program- 
mes kann der ST den XL steuern und 
als Peripheriegerät benutzen. 


Die Hardware 


Die Schaltung wird zur Pegelwand- 
lung zwischen der RS232-Schnitt- 
stelle und dem XL-Systembus benö- 
tigt, da der ST mit 12 Volt und der XL- 
Bus mit TTL-Pegel (also 5 Volt) arbei- 
tet. Es gibt hierfür einige Schaltungs- 
varianten. Da keine geeignete Span- 
nungsversorgung bei den Computern 
vorhanden ist, haben wir eine Schal- 
tung gewählt, die aus den am XL-Bus 
anliegenden 5 Volt selbständig die 12 
Volt für den ST herstellt. Das Kern- 
stück dieser Schaltung ist ein IC mit 
der Bezeichnung MAX232. Auf Seite 
150 sehen Sie den recht einfachen 
Schaltplan. Das Bild rechts zeigt die 
fertig auf Lochrasterplatte aufgebaute 
Schaltung. Außer dem MAX232 be- 
nötigen Sie noch vier Elektrolyt- 
Kondensatoren. Beim Zusammenbau 
müssen Sie unbedingt auf die richtige 
Polung der Kondensatoren achten. 


Die Software 


Obwohl das Programm in GFA- 
Basic geschrieben ist, arbeitet es 
schneller als die wirklichen Disketten- 
laufwerke des XL. Lediglich für die 
Routine zur Prüfsummenbildung wird 
ein Maschinenprogramm eingesetzt, 


das jedoch aus nur 24 Byte besteht. 
Außerdem läuft das gesamte Pro- 
gramm vollständig unter GEM, 
wodurch die Bedienung sehr einfach 
wird. 

Nach dem Starten des Programmes 
erhält man außer der Menüleiste vier 
Fenster, je eines für die zwei virtuellen 
Diskettenlaufwerke, eines für den 
Drucker und ein Statusfenster. Die 
Laufwerke sind wahlweise ausschalt- 
bar und haben dann keinerlei Einfluß 
auf die Busfunktionen des XL. Somit 
kann man zum Beispiel ein 1050-Lauf- 
werk problemlos mitbenutzen, wobei 


Auf einer kleinen 
Lochrasterplatine 
findet das Interface 
spielend Platz, 
man braucht nicht 
einmal ein Löt- 
künstler zu sein 


Sie durch Ausschalten des echten und 
Einschalten des virtuellen Laufwerks 
hin- und herschalten. 

Die virtuellen Laufwerke arbeiten 
zunächst einmal genauso wie die ech- 
ten. Zusätzlich haben Sie die Wahl, 
die Floppies von 128 auf 256 Byte pro 
Sektor umzuschalten, wodurch sich 
die Diskettenkapazität verdoppelt. Ein 
käufliches Laufwerk mit 256 Byte pro 
Sektor hat es zwar hierzulande nie 
gegeben, das DOS II des XL unter- 
stützt jedoch ein solches Gerät. 

Sie können nun beliebige Dateien 
von XL- auf ST-Format und umgekehrt 
übertragen, wodurch zum Beispiel 
alte Texte oder Adreßdaten im XL für 


den ST verfügbar werden. Auch ganze 
Disketteninhalte können im ST oder 
auf 3'%-Zoll-Diskette gespeichert und 
schnell wieder geladen werden, was 
sich für System- oder Compilerdisket- 
ten anbietet, da man natürlich den XL 
auch vom ST aus booten kann. 

Das Menü des Programmes bietet 
folgende Auswahlpunkte: 

Der erste Menüpunkt »Desk« ent- 
hält: 
Atari 800 Interface gibt eine Pro- 
gramminformation aus. 

Außerdem stehen die sechs Ac- 
cessories zur Verfügung. 


Die folgenden zwei Menüs »Disk 1« 
und »Disk 2« beinhalten die Auswahl- 
punkte: 

Directory zeigt das aktuelle Inhalts- 
verzeichnis und den verbliebenen 
Speicherplatz an 

Save Disk speichert den Disketten- 
inhalt auf ST-Diskette (nur die beleg- 
ten Sektoren) 

Load Disk lädt eine mit »Save Disk« 
gespeicherte Diskette 

Format SD formatiert die Diskette im 
Single-Density-Format (DOS II) 
Format DD formatiert im Double- 
Density-Format (DOS III) 

Set Aktivierung/Desaktivierung der 
Diskette 


RAAB, 
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A XL 


Das Herz der Schaltung: IC MAX232 


Im Menü »Settings« sind folgende 
Punkte enthalten: 
128 BpS Auswahl von 128 Byte pro 
Sektor Diskettenformat 
256 BpS Auswahl von 256 Byte pro 
Sektor 
show Sector# Ein-/Ausschalten der 
ständigen Anzeige der Nummer des 
momentan bearbeiteten Sektors 
Clearw Disk 1, Clearw Disk 2, Clearw 
Status löschen das angegebene Fen- 
ster 
Unter dem Menüpunkt »Ende« steht 
Quit, womit man das Programm been- 
det. 

Das Programm beginnt mit einigen 
Initialisierungen: Menü lesen und 


anzeigen, Fenster benennen und öff- 
nen, Schnittstelle auf 19200 Baud ein- 
stellen, womit der serielle Bus des XL 


läuft, und den RS232-Puffer leeren. _ 


Programm nach 
Wunsch erweitern 


Danach wartet das Programm in 
einer Schleife auf den Empfang eines 
seriellen Byte oder auf die Wahl eines 
Menüpunktes. Ist ein Byte angekom- 
men, testet eine Routine, ob es den 
Drucker oder eine aktivierte Disketten- 
station anspricht. Wenn nicht, so wird 


Schaltung: 
IC: MAX232 
Kondensatoren: 2x 22,F 
2x 25uF 
Stecker: 25pol D-Sub 
(weiblich) 
XL-System- 
bus-Stecker 


Können Sie keinen Systembus- 
Stecker auftreiben, benutzen Sie 
einzelne Steckschuhe, die auf 
diese Stifte passen. Sie sind in 
jedem Elektronik-Laden erhältlich. 
Natürlich können Sie das Verbin- 
dungskabel auch im Atari XL von 
innen an den Systemport anlöten. 

Zum Schluß benötigen Sie noch 
ein Stück Kabel, mindestens vier- 
adrig, und ein kleines Stück 
Lochraster-Platine. 


es ignoriert, andernfalls liest das Pro- 
gramm den Rest des zu erwartenden 
Kommandoblocks und führt die gefor- 
derte Funktion aus. Bei eventuellen 
Prüfsummenfehlern wird eine ent- 
sprechende Fehlermeldung im Sta- 
tusfenster ausgegeben, wobei die 
erste ausgegebene Zahl die selbst- 
errechnete und die zweite Zahl die 
empfangene Prüfsumme darstellt. 
Um Platz zu sparen, haben wir auf 
die Drucker-, Kopier- und Directory- 
Routinen verzichtet. Dennoch ist 
diese Version lauffähig, sodaß Sie das 
Programm nach Ihren eigenen Wün- 
schen erweitern können. 
(Stefan Dittrich/kl) 


r 
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0,4 
2) ‚Mes(60) „DS (1,1050) 
„Df%(1) „DEC2) „Su% (1,1050) 

73 Open "",#1,"AUX:" 
8: NullssStrings (128,0) 
3 F&=Steings (236,255) 
10: Lenz=128 
11: alnitall 
12: Restore 
13: For 14-0 To 40 
142 Read Mes(1%) 
152 Exit I# Mes(Im) 


18: MestIg+1)="" 
19: Data Dosk 
Interface, 


ATARI 800 
»1,2,3,4,5,6 
20: Data Disk 1 „ Directory, 
Save Disk, Load Diuk, 
Format SD, Format DDy--- 
Set,"" 
‚ Directory, 
Loas Disk, 


2 Data Tiearw Disk 1, Clearw 
Disk 2, Clearw Status,"" 
Data Ende, * Quit # ‚mer 
Menu Mas() 
Closeu 1 
Titlew 1," 
Intow I, 
Closew 2 
Titlew 2,"Drucker nicht 
implementiert" 
F1z Infow 2,"Vollständige Version 
auf Leserservice-Disk!" 

32: Clasew 3 
33: Titlew 3 
Intow 
= Closew 4 
= Titlew 4, "Status" 
For It=! To 4 

Openw 1% 

eis 
402 Next I% 
41: On Menu GBosub Menue 
42: Dr=%bios(15,0,0,-1,-1,-1,-13 
33: D4(D=1 
44: Snz=0 


sw 1“ 


"Disk 2" 


472 Sn 
48: Menu a7,1 

49: MDinfo2 

50: äetmp 

Sir Gols 

52: Showm 

53: while Biost1,1)=-1 


B%=Inpti) 
On Menu 

Wend 

Gor 

Snowm 

While Biost1,1)<>-1 
On Menu 

Wend 

Hidem 

So2: 

Cr=Inpt1) 


14 (C2<>64 Or P%=0) And 
CH< >Asct"1") Or DECO)=0) 
And (C#C>Asc("2") Or 
D%(1)=0) 
66: Goto Go 
67: Endit 
68: SW=CH 
89: For Iz=1 Ta 3 
Br=Inp (1) 
Comx (1%) =B% 
SA=Sh+BL 
S1X=(5% And 255)+Int (54/256) 
Next 1% 
B%=Inp (1) 
i 1# BRCHSIR 
Openw & 
Print " 
Frame! 
79: Goto Gel 
80: Endit 
Bi: I4 C% 


Invalid Command- 


Asct"1") Or CieAsc ("2") 


Qut 1,Asct"an) 
Sec%=Com% (2) +Comf (3) #256 
1# Comk(1)=Asct"R") 
"= Read Sektor * 
Qut 1,Ascc"a") 
1€ Snz 
Openw Di#2+1 
Print Att1,1)5"Sending 
Sector *";Hers(Seck);" (" 
sSecHs") 3 
Endit 
Print #1,D5(DR,Sech)+ 
Chrs (Su% (0%, Seck) )+ 
Goto Go 
Eneit 
IF Comk(1=Ascc"P") Or 
Com& (1) =Ase ("W*) 
* * Put/ Write Sektor #* 
Out 1,Aset"a") 
14 Secxca 
Ds (DL, Sec#)=Inputs (128, 


.n 

Eise 

D$(D%,Sec#) = Inputz (Lan: 

“> 

Enait 

B2=Inpt1) 

Qut 1,Asc man 

14 50% 


Openw Derz+i 
Print Atti,ı) 
Hexs(Seck 


"Getting 


Ibosum(Seck) 
14 S13CHB% 
Openw & 
Print " PUTE Cnsckaum- 
Error in 8";Hexs(Such);" 
2 EU EHOnB Ein 
Hass (ix; 
Out 1yAsc (" 
Gate Go1 
Endi4 
Gut 1,Asct"c") 
Soto Go 

Eneit 

IF Comkt1)=Asc ins") 

* Disk-Status * 
Openw DY«z+l 
1f Lenze12& 

Restore Dstati 
Eise 

Restore Dstat2 
Endit 
For I%=1 To s 

Read E% 

But 1,2% 
Next 1% 
Goto Go 
Detati: 
Data 67,16 
Dstat2: 
Data 67,48,0,1,0,39 

Endi# 

14 Comt{1}=Asettie) Oi 
Comscı 24 

* = Format Diek SD oder 
DD» 

Dut I,Asci"ar) 

D4Z(D%)=Comf(1)-32 

Minfo 

Peint " Formatierung. ." 

Slnit 

Print #1,Strings(Lent+l, 
285; 

Qut 1,Asci"c) 

Sata 602 

Endit 

Openw & 

Print "Unknown Command : 
Hexs(Comf (111° " 0"; 
Chrs(Comk (1) 5)" 

Goto Go1 
Endit 
Soto Go 
* * Prozeduren + 
Procedure Menue 

Di=1+ (Menu (09<19) 

On Menu(0) Gosub Info 

On Menu(0)-10 Gosub Dir,Savı 


Loa,Fmtsd,Fatdd,X, Setd 
On Menu (0)-19 Gosub Dir,Sav, 
Loa,Fatsd,Fmtdd,X, Setd 


On Menu(0)-28"Gosub Set128, 
Set256,Shownr ‚X,Clw,Ciw, 
Eiw,ciw 

Menu Oft 


Showm 
Menu Kill 
Dettext 1,0,0,13 
Stop 
Henu Mesc) 
Deftext 1,0,0,4 
On Menu Gosub Menue 
Endit 
Return 
Procedurg Into 
Alert 0,” ATARI 800- 
Interface | 1/87 
S.Dittrien Lore 
Dummyi 
Return 
Procedure Clw 
Openw Menu 9-31 
Cs 
Return 
Frocedure Satap 
Restore Nprog 
me=ın 
For I%=1 To 24 
Read As » 
M&=MS+Chr& (Val ("&H"+A2)) 
Next 1% 
Marogs 
Data 2a,6#,00,04,42,85,52, 
45,38,2#,00,08,22,80,12, 
1d,d1,01,51 ,cdıff,fa,de, 
75 
Return 
"+ Disk-Prozeduren # 
Frocedure Set128 
14 Lent=256 
asure 
14 Sureg=2 
Null #=ötrings(128,0) 
Menu 28,1 
Menu 29,0 
Len%=128 
ölnitall 
Endit 
Endit 
Return 
Procedure Set256 
If Lent=128 
asure 


Menu 29,1 
Lenx=256 
Alnitall 
Endif 
Ensit 
Return 
Procedure Sure 
Alert 1," Größenveränderung 


löscht! alle Daten ! 
1," Stop {OK *, Sures 
14 Suret=2 
Arrayfill DF%0,0 
aDinfo2 
Ensit 
Return 


Procedure Shownr 


Menu 49,50% 
Return 
Procedure Dosum(0%) 
14 0%4 
L#=128 
Eise 
Lz=Lenz 
Endit 
M&=Varptr (ms) 
SiX=C:M% (Li Varptr (D4 (D2,0%)) 
‚L%) 
Suß (DR,02)=51% 
Return 
Procedure Dir 
* * Directory anzeigen 
* * ist nicht implementiert 
Return 
Procedure Initall 
For D%=0 Ta ı 
Slnit 
Next D% 
Return 
Procedure Init 


Verwaltungsprogramm im GFA- 
Basic für das XL-ST-Interface 


14 Menu(0)=38 


Su (DE, 1%) =0 
Next J% 
For J%=4 To 1050 
D$ (4,9%) =String${Len%,0) 
Su (DI, I%)=0 
Next J% 
Openw DAr2+1 
Cis 
Return 
Procedure Sav 
14 DFE(DR) 
srile 
18 Faspe" 
Defmouse 2 
For 1%=1050 Downto 1 
Exit If Ds(Dz,I2) 
<>String$ (Lenz,o) 
Next 1% 
Open “R",#2,F#,Len%+1 
Field #2,Lenz Au At,1 
As Sus 
Alssötrs (IR) +"D"+ 
Strs (DER DR) Ir" Le 
Strs(Len%) 
Sus-ı u 
Lset As=ais 


Sus=Chr® (Su% (D%,383) 
Put #2,92+1 
Next I% 
Close #2 
Defmouse O 
Endi# 
Endit 
Return 
Procedure Loa 
u=t 
14 D+% (dw) 

Alert 1," Laden löscht 
den ! alten Inhalt!",1, 
"OK; {Cancel *, w 

Endi# 
14 wei 
afile 

14 Fscy" 

Defmouse 2 
alnit 
Open "I" #2, F8 
AS=Input$ (129,82) 
1%=Val (As) 
DIR (DE) =Val (MidscAs, 
Instr (AS, "D")+1,4)) 
1f Len%=Val (MidscAs, 
Instr (AS, "L")#1,4)) 
14 Lent=256 
As=Input$(128,02) 
Endif 
For Sect=i To I% 
Ds (DX,Seck)= 
Inputs (Len%,#2) 
Su (DR ,Seck)= 
Asc (Inputs(1,#2)) 
Next Secz 
For Sect=1 To 3 
DS (DZ ,Sec#)= 
Lefts(Ds(D%,See#) „128) 
Next Seck 
gıse 
Alert 1," Falsche 
Sektor-Länge :",1," Stop 
" Dummy% 
Endı# 
Tlose #2 
adinto 

Endit 

Detmouse © 

Dir 

Endit 
Return 
Procedure File 
Fileselect "\e.dek","",F® 
14 Instr (F&,".")=0 And FacH" 


Frocedure Setd 
wi=zent«i 
Openw wi 
1F DDR: 

D%.(D%)=0 
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Menu 174 
Intow wi, 
Eise 
Dr(DEI=1 
Henu 17+9#D%,1 


naktiv® 


Frocedure Fntsd 

äfmtsure 

If Surez=ı 

Mid$ (DS (DX,T60) 1,9) = 

Chrs t2)+Chrscunc®) 
Chr s (2) +Chrs (UHCH) + 
Chrs«2) 
Hids (D&.(DL,360) „1 
Chrs(15) 
3a4: midstbec 


2,09 = 


160) ,56,29= 
Chr (0) «Chrs (&hre) 
Su% (D% „3860| 

Df%(DEI=1 
adınfo 
Enai# 
Return 
rocedure Fatdd 
Aratsure 


14 Sures=i 
Mids (D8 (D%, 16) ,15,2)= 
Chrs (UHTE) +Chrs (HAS) 
Su% (D%,16)=36 
For 1%=1 To 128 
Mids (DS (D%,24) ,12)= 
Chr (uHre) 
= Next 1% 
Sux(Dt,2 
Dfzmn)=: 
Dinto 
Endif 
Return 
procedure Fntsure 
DE=1+ (Menu (O)<19) 
Surek=1 


Alert 1, 

löscht alles 

} Stop ", 
Enait 

14 Surat=ı 


aninto 


Next D% 
Return ü 
Procedure Dinfo 


14 DfE(DI=1 


Infos DE#2+1," Aktiv x 
Single density" 
SB8: Eise 
399: Infon DER2+1," Aktiv z 
Double Density" 
Endi# 
Endit 
Engi# 
Return 


Verwaltungsprogramm für das 
XL-ST-Interface (Schluß) 


Für Bastler: Cursor-Tasten 
selbst gemacht 


Bei den XL-Geräten sind von 
Atari vier Funktionstasten vor- 
gesehen, die in den Computer 
nicht eingebaut wurden. Sie 
könnten jedoch im XL nützliche 
Funktionen übernehmen. War- 
um die Tasten also nicht selbst 
einbauen? 


em aufmerksamen XL-Anwen- 

der ist sicher aufgefallen, daß 

beim Tastaturtest im Selbst- 
testprogramm des XL vier Tasten nicht 
angesprochen werden können. Diese 
vier befinden sich auf dem Bildschirm 
zusammen mit den Funktionstasten 
rechts über der Abbildung der norma- 
len Tastatur. Sie sind mit <1>,<2>, 
<3> und <4> gekennzeichnet. 
Diese vier zusätzlichen Funktions- 
tasten waren beim 1200XL, 1400XL 
und beim 1450XLD eingebaut, die in 
Deutschland nie zur Auslieferung 
gelangten. In den erhältlichen XL- 
Baureihen fehlen sie, obwohl das 
Betriebssystem sie unterstützt. Durch 
den Einbau dieser vier Tasten erhält 
man separate Cursor-Tasten. Im ein- 
zelnen haben diese vier Tasten fol- 
gende Funktionen: 


<1> Cursor nach oben, entspricht 
<CONTROL> und <-> 

<2> Cursor nach unten, entspricht 
<CONTROL> und <=> 
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<3> Cursor nach links, entspricht 
<CONTROL> und <+> 

<4> Cursor nach rechts, ent- 
spricht <CONTROL> und <*> 

Zusammen mit <SHIFT>: 

<1> Home (linke obere Ecke) 

<2> linke untere Ecke 

<3> Cursor an den linken Rand 

<4> Cursor an den rechten Rand 

Mit <CONTROL>: 


z 


Lötpunkte der 
Tastatur- 
Siochleiste 
o1 
o 
Kabel 1 ® 
N, 
Kabel 2 x 
8 
Kabel 3 ° 
N) 
o° 
° 
o° 
o° 
Kabel 4. = 


<1> Tastaturabschalten, nochma- 
liges Drücken wieder anschalten. 

<2> Bildschirm ausschalten (POKE 
559,0). Beliebiger Tastendruck stellt 
wieder auf vorherigen Wert. 

<4> Wechselt zwischen den bei- 
den Zeichensätzen. 

Warum sollte man sich diese nütz- 
lichen Funktionen entgehen lassen? 
Selbst einbauen heißt die Devise. 
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‚Abschirmblech 


Bild 1. Anschluß der Tasten an die Grundplatine 


Bevor Sie sich jedoch Lötkolben 
schwingend an ihrem Computer zu 
schaffen machen, sollten Sie beden- 
ken,. daß ein derartiger Eingriff den 
Verlust einer eventuell noch existie- 
renden Garantie zur Folge hat. 
Solange man das Original-Betriebs- 
system des XL benutzt, hat man nur 
Vorteile. Andere Betriebssysteme, wie 
zum Beispiel das des alten 800ers 
(das mit dem Atari-Translator geladen 
wird), fragen diese Tasten nicht ab, 
womit diese ohne Funktion bleiben. 

Doch nun frisch ans Werk, 
Kreuzschlitz-Schraubenzieher, Hand- 
bohrer oder ähnliches, Lötkolben, Löt- 
Zinn, vier Tasten und ein paar Zentime- 
ter Litze bereitlegen. Wegen ihrer 
niedrigen Bauhöhe empfehlen sich 
Digi-Taster. Die Kosten hierfür be- 
tragen ungefähr vier Mark. 

Um ein Zerkratzen desXL zuverhin- 
dern, ist es ratsam, sich eine weiche 
Unterlage zu beschaffen. Legen Sie 
nun den Computer mit der Unterseite 
nach oben aufdie Unterlage, lösen Sie 
die sechs Schrauben und verwahren 
Sie diese gut. Dann drehen Sie den 
Computer vorsichtig um, so daß die 
Tastatur zu Ihnen zeigt, und klappen 
das Oberteil nach rechts. Achten Sie 
aber darauf, daß Sie die Folie mit den 
aufgedruckten Leiterbahnen zwi- 
schen Rechnerplatine und Tastatur 
nicht beschädigen. Nun ziehen Sie 
gleichmäßig und ganz ganz vorsichtig 


afa{afajafnjufn 


! 
! 
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die Folie aus der Verbindungsleiste 
auf der Computerplatine. Jetzt ent- 
scheidet sich, ob der Einbau einfach 
oder umfangreich wird. Sehen Sie bei 
ihrem Computer unter der Tastatur 
eine Metallplatte, ist die Aufrüstaktion 
mit etwas mehr Arbeit verbunden (Bild 
1). Ist die Tastaturplatine zu sehen, 
gestaltet sich der Einbau einfacher 
(Bild 2). 


Neben dem Schacht 
ist Platz 


Zuerst werden die Tasten in den 
Computer eingebaut. Es empfiehlt 
sich, sie auf der weißen Oberseite 
links oder rechts neben dern Modul- 
schacht unterzubringen. Bohren Sie 
dann die Löcher für die Kontakte der 
Tasten und kleben Sie die Tasten auf. 
Dann verlöten Sie sie nach Bild 3. Ach- 
ten Sie darauf, den mit eins bis vier 
markierten Litzen eine ausreichende 
Länge zu geben, da diese mit der 
Tastatur beziehungsweise mit der 
Computerplatine verlötet werden. Die- 
jenigen, bei denen unter die Tastatur 
eine Metallplatte geschraubt ist, 
haben noch weitere Arbeit vorsich, die 
anderen können den folgenden 
Absatz überspringen. 

Zuerst müssen Sie zwei weitere 
Schrauben lösen. Dieeinesitztschräg 
links vor der Buchse, an die die Peri- 
pheriegeräte wie zum Beispiel Disket- 
tenstationen des XL-Computers ange- 
schlossen werden. Die andere befin- 
detsich schrägrechts vor dem Stecker 
der Stromversorgung. Greifen Sienun 
unter die Platine, drücken Sie auf den 
Einschaltknopf und schieben Sie so 
die Platineleicht aus der Verankerung. 


unten, wobei Sie einen leichten Druck 
auf die Diskettenbuchse ausüben, 
springt die Platine heraus. Jetzt dre- 
hen Sie die Platine um und lösen alle 
noch verbliebenen Schrauben des 
Abschirmblechs. Wo Sie nun die vier 
Kabel anlöten müssen, sehen Sie in 
Bild 1. Es ist ratsam die Kabel nicht 
direkt anzulöten, sondern einen Zwi- 
schenstecker zu verwenden, da die 
Tastatur sonst nicht mehr von der 
Computerplatine getrennt werden 
kann. Wenn Sie dünne Litze verwen- 
den, können Sie die Abschirmung wie- 
der zusammenschrauben. Verwen- 
den Sie die obere Abdeckung nicht, 
müssen Sie den kleinen Draht im 
Oberteil des Gehäuses von. der 
Klappe des Modulschachts entweder 
abkneifen oder so verbiegen, daß er 
keinen Kontakt zur Platine hat. Dann 
setzen Sie die Platine wieder in das 
Unterteil ein und verschrauben sie 
vorsichtig. 

Wenn man die Kabel an der Tasta- 
turplatine verlötet hat, unterführt man 
sie einfach wie in Bild 2 unter der Pla- 
tine und lötet sie dort an. Ein Zwi- 
schenstecker entfällt hier, da ein Los- 
schrauben der Tastatur von der 
Gehäuseoberseite wohl in den selten- 
sten Fällen nötig wird. 

Ist alles fertig, brauchen Sie nur 
noch das Tastaturkabel wieder einzu- 
setzen und das Ober- und Unterteil 
des Gehäuses wieder zu verschrau- 
ben. 

Nun müssen Sie endlich nicht mehr 
umständich die <CONTROL>- 
Tasten drücken, um den Cursor über 
den Schirm zu steuern. Wenn Sie sich 
erst einmal an diese Vereinfachung 
gewöhnt haben, möchten Sie sie nicht 
mehr missen. 


Durch eine Drehung nach rechts (Kjersten Waldheim/rj/hf) 
Tasten-Nr Mil BI Bl [a 
Kabel-Nr. 1 2 3 4 


Bild 2. Unterseite der Tastatur 


Bild 3. Verdrahtet werden die zusätzlichen Tasten nach obenstehendem Schema 


153 


| Markt &-Technik-Produkte 
erhalten Sie bei 
Ihrem Depot-Buchhändler 


1000 Berlin 31, Bundesallee 25 im Tonstudio, Datoploy, Tel. (030) 8613315 - 1000 
Berlin 30, Einemstroße 5, Plostrenic GmbH, Tel. (030) 2401 81 - 1000 Berlin 30, Keith- 
straße 18, Computore Fachhandlung, Tel. {030) 213021 - 2000 Hamburg 36, Große 
Bleichen 19, Tholio Buchhaus, Tel. (040) 3005050 - 2000 Hamburg 1, Hermannstroße. 
31, Boysen+ Maosch, Tel. (040) 300.50,50 - 2300 Kiel, Holtenover Stroße 116, Buch- 
handlung Muehlou, Tel. (0431) 85085 + 2390 Flensburg, Norderstroße 94-96, ECL, Tel. 
(0461) 28181 » 2400 lübeck, Königstraße 79, Buchhandlung Weiland, Tel. (0451 
160060 - 2800 Bremen 1, langenstroße 10, Buchhandlung Storm, Tel. (0421) 32152: 
= 2940 Wilhelmshoven, Marktstroße 38, Buchhandlung lohse-issing, Tel. (04421) 
41687 + 3000 Hannover 1, Bahnhofstraße 13, Buchhandlung Schmorl u.v.Seeield, Tel. 
(0511) 327651 - 3300 Braunschweig, Neve Straße 23, Buchhandlung Greff, 
Tel. (0531) 49271 - 3400 Götingen, Weender Stroße 33, Deverlich'sche Buchhand- 
ung, Tel. (0551) 56868 = 3500 Kassel, Holländische Straße 22, Buchhandlung an der 
Hochschule, Tel. (0561) 83807 + 4000 Düsseldorf, Friedrichstraße 24-26, Stern Verlag, 
Tel. (0211) 373033 - 4300 Essen 1, Kertwiger Stroße 33-35, Buchhandlung Boedeker, 
Tel. (0201) 221381 4400 Münster, Alter Steinweg 1, Regensbetg’sche Buchhandlung, 
Tel. 0251) 40541-5 + 4500 Osnabrück, Johannisstraße 51, Buchhandlung Acker, Te 
(0541) 28488 + 4600 Dornmund, Westenhellweg 9, Buchhandlung C.L.Kröger, 
Tel. (0231) 1527358 - 4630 Bochum, Querenburger Höhe 281/Unicenter, Buchhand- 
lung Brockmeyer, Tel. (0234) 701360 - 4790 Poderbarn, Warburger Stroße 98, Buch- 
hondlung Meier+ Weber, Tel. (05251) 63172 = 4800 Bielefeld 1, Oberntorwoll 25, 
Buchhandlung Phönix GmbH, Tel. (0521) 58306-38 - 5000 Köln 1, Neumork' 24, Buch- 
handlung Gonski, Tel. (0221) 210528 + 5100 Aachen, Unulinerstraße 17:19, Moy- 
er’sche Buchhandlung, Tel. (0241) 4777-136 - 5300 Bonn 1, Am Hof So, Buchhandlung 
Behrendt, Tel. (0228) 658021 + 5400 Koblenz, Schloßstroße 12, Buchhandlung Cusa- 
nus, Tel. [0261) 36239 - 5500 Trier, Fleischstiaße 61-65, Akod. Buchhandlung Inter- 
Dos, Te. (0651) 4359-5600 Wupperal |, Kipdor2, Buchhondlung W, inke, Tel. 
(0202) 454220 » 5900 Siegen, Sandsroße 1, Buchhandlung Balogh, Tel. (0271) 
55298-9 = 6000 Frankfurt 1, Steinweg 3, Buchhandlung Naccher, Tel. (069) 298050 
26100 Damage, Lviensclägenttabe 4, Buchhandlung Welt el. (061 5178548 
= 6200 Wiesbaden, Friedrichstraße 21, Buchhandlung Feller-+ Gecks, Tel. (061 21) 
304911 = 6300 Gießen, Seliersweg 83, Ferber'sche UNI-Buchhandlung, Tel. (0641) 
12001 = 6400 Fulda, Friedrichstraße 24, Seziolwissenschaftliche Fochbuchhandlung, 
Tel. (0661) 75077 * 6450 Hanau, longstroße 47, Albertis-Hofbuchhandlung, Tel. 
(08181) 24301 - 6500 Mainz, Große Bleiche 29, Gutenberg Buchhandlung, Tel. 
(06131) 37011 - 6600 Soarbrücken, Futterstraße 2, Buchhandlung Bock +Seip, Tel. 
(0681) 30677 - 6700 ludwigshofen, Bismorckstroße 98, Buchhandlung Wilhelm Hof- 
mann, Tl. (0621) 51.6001 - 6800 Mannheim 1, B1,5, Buchhondlungoefer, Tl. (0621) 
289 12 7000 Stuttgart 50, Bahnholstroße 13, Buchhandlung Stehn, Tel. (0711) 56 1476. 
= 7030 Böblingen, Sindelfinger Allee 25, Osiondersche Buchhandlung, = 7100 Heil- 
bronn, Kromstroße 6, Buchhandlung am Markt, Tel. (071 31) 68682 + 7400 Tübingen, 
Wilhelmstraße 12, Osiondersche Buchhandlung, Tel. (07071) 51781 - 7410 Reutlingen, 
Koserpossoge 8, Osiandersche Buchhandlung, » 7500 Karlsruhe, Koiserstroße 18, UNI 
Buchhondlung Kellner + Moessner, Tel. (0721) 89 1436 « 7600 Offenburg, Hauptstraße. 
‚45, Buchhandlung Roth, Tel. (0781) 22097 - 7800 Freiburg, Bertholdstraße 10, Rom- 
boch Center, Tel. 10761) 49091 = 7900 Ulm, Hirschstraße 4, Fochbuchhandlung Hof- 
mon, Tel. (0731) 60949 - 7980 Ravensburg, Wangener Stroße 99, Schauties Elektro- 
nik, Tel. (0751) 26138 - 8000 München 2, Marienplatz, Buchhandlung Hugendubel, 
Tel.(089) 2389-1 - 8000 München 2, Borerstruße 32-34, Computerbücher om Obelisk, 
Tel. (089] 282383 - 8000 München 2, Schillerstraße 17, Pele's Computarbücher, Tel. 
(089).555229 - 8000 München 2, Theresienstraße 43, Universitötsbuchhandlung lach- 
ner, Tel. (089) 521340 + 8070 Ingolstadt, Theresienstraße 6, Buchhandlung Schön- 
huber, Tel. (0841) 331 46/47 = 8220 Treunstein, Ludwigstraße 3, Computerstudio, 
Gertrud Friedrich, Tal. (0861) 14767 = 8390 Possau, Kl. Exerzierplatz 4, Buchhandlung 
Pustet, Tel. (0851) 56945 - 8400 Regensburg, Gesandtenstraße 6, Buchhandlung 
Pustet, Tel. (0941) 52061 - 8500 Nümberg, Adlerstraße 10-12, Universitätsbuchhand- 
lung Büttner&Co., Tel. (0911) 2368-0 - 8870 Hol, leimitzer Sroße 11-13, Compuier- 
Center-Burger, Tel. (09231) 40075 - 8900 Augsburg, Grotteneu 4, Buchhandlung 
Pustet, Te). (0821) 35437 = 8960 Kempten, Salzstraße 30, Kemptener Fachsortiment, 
Tel. (0831) 14413. 

Schweiz: 

3001 Bem, Nevengasse 43, Von-Werdt-Possoge, Buchhandlung Francke AG, Tel. (031) 
221717 3011 Ben, Morktgasse 25, Buchhandlung Scherz, Tel. 031} 2268.37 + 5000 
Aorau, Bahnhofstrasse 41, Buchhandlung Meissner, Tel. (064) 247151 = 6300 Zug, 
Neugasse 12, Bücher Balmer. Tel. (042) 21 41 41 + 8002 Zürich, Bleicherweg 56, Buch- 
handlung Enge, Tel. (0112012078, 8022 Zuich, Plkansnasse 10, BuchhondiunaCrell 
Fössii, Tel. (01) 2118011 = 8033 Zürich, Universitätsstrasse 11, Freihofer AG, Wissen- 
schoftiche Buchhondlung, Tel. (01) 3634282 - 9001 St.Gallen, Webergasse 5, Buch- 
handlung am Rösslito, Tel. (071) 228726. 


Österreich: 

1010 Wien, Wallzeile 11, Morowa&Ca, Tel [0222) 947641 - 1020 Wien, Heineristro- 
Be 3, Computer Buch Shop Karl Fegerl, Tel. (0222) 245368 - 1040 Wien, Karlsplatz 
13, Ichmittelzentrum, Tel. (0222) 567801 = 1120 Wien, Schönbrunner Straße 261, Bö- 
cherzentrum, Tel. (0222) 8331 96 - 2700 Wiener Neustadt, Neue Weligasse, Walter 
Hofstädter, Tel. 02622) 21550.- 3302 Amstetten, Hauptplatz 30, Kirchenstroße 3, Jo- 
hann Reisinger, Tel. (07472] 2576-0 = 3500 Krems, Obere londstraße 8, Helmut Liner, 
Tel. (02732) 2818 - 4020 Unz, londstroße 34, R. Pimgnuber, Tel. (0732) 272834 + 
4840 Vöcklabruck, Stadtplatz 28, Buchhandlung Schachiner, Tel. (07672) 3467 - 
5020 Salzburg, S-Iullen-Straße 2, R. Regelsberg, Tel. (0662) 73573 + 6010 Innsbruck, 
Mario-Theresien-Straße 15, Tyrolio, Tel. (05222) 24944 = 6010 Innsbruck, Museum- 
große 4, Wognersche Unfyeitrsöuchhandung, a. (05222) 22316 ° Bot Graz, 
Stemplergasse 3, Buchhandlung leykam, Tel. (0316) 766760 - 8010 Groz, Sachor- 
Stoße 6, Jos. A. Kienreich, Tel. (0316) 76441 + 8010 Graz, Rodetzkystraße 7, Volks- 
Buchhandlung, Tel. (0316] 79388. 


Markt&fechnik 
Zeichnen Bücher 
‚Softwore - Schulung 
Markt& Technik Verlag ‚AG, Buchverlag, Hans-Pinsel-Straße 2, 8013 Hoor bei München 


l Impressum 


Herausgeber: Carl-Franz von Quadt, Otmar Weber 
Geschäftsführender Chefredakteur: Michael Scharfenberger 


Chefredakteur: Michael Lang (Ig) 

Redakteure: Henrik Fisch (hf,Projektleitung), Joachim Graf (ig), Thomas Kal- 
tenbach (kl), Udo Reetz (rz), Richard Joerges (rj), Thomas Jacobi (ja), Anatol 
Locker (al), Gregor Neumann (gn); 

Chef v. Dienst: Petra Wängler 

Redaktionsassistenz: Monika Lewandowski (222), Rita Giet! (289) 


Fotografie: Jens Jancke 
Titelgestaltung: Katja Milles 


Layout: Leo Eder (Lig.), 
Katja Miles, Andrea Miller 


Produktionsteiter: Klaus Buck (180) 
‚Anzeigenverkautfsteitung: Ralph-Peter Rauchfuss 


Auslandsrepräsentation: 

Schweiz: Markt& Technik Vertriebs AG, 

Kollerstrasse 3, CH-6300 Zug, 

Tel. (042) 415656, Telex: 862329 mut ch 

USA: M&T Publishing Inc., 501 Galveston Dr., Redwood City, CA 94063; 
Tel. 415-366-3600, Telex 752-351 


Manuskripteinsendungen: Manuskripte und Programmlistings werden 
gerne von der Redaktion angenommen. Sie müssen frei sein von Rechten 
Dritter. Sollten sie auch an anderer Stelle zur Veröffentlichung oder gewerbli- 
‚chen Nutzung angeboten worden sein, muß dies n werden. Mit der 
Einsendung von Manuskripten und Listings gibt der Verfasser die Zustim- 
mung zum Abdruck in von der Markt& Technik Verlag AG herausgegebenen 
Publikationen und zur Vervielfältigung der Programmlistings auf Datenträger. 
Mit der Einsendung von Bauanleitungen gibt der Einsender die Zustimmung 
zum Abdruck in von Markt& Technik Verlag AG verlegten Publikationen und 
dazu, daß Markt&.Technik Verlag AG Geräte und Bauteile nach der Bauanlei- 
tung herstellen läßt und vertreibt oder durch Dritte vertreiben läßt. Honorare 
nach Vereinbarung. Für unverlangt eingesandte Manuskripte und Listings. 
wird keine Haftung übernommen. 


‚Anzeigenverkauf: Alicia Clees (313), Britta Fiebig (211) 


‚Anzeigenverwaltung und Disposition: 
Patricia Schiede (172) 


Marketingleiter: Hans Hört (114) 
Vertriebsleiter: Helmut Grünfeldt (189) 


Vertrieb Handelsauflage: Inland (Groß-, Einzel- und Bahnhofsbuchhandel) 
sowie Österreich und Schweiz: Pegasus Buch- und Zeitschriften-Vertriebs 
GmbH, Hauptstätter Str. 96, 7000 Stuttgart 1, Tel. (0711) 6483-0 


lichkeiten: Leser-Service: Telefon (089) 4613-249. Bestel- 
lungen nimmt der Verlag oder jede Buchhandlung entgegen. 


Bezugspreis: Das Einzelheft kostet DM 14,- 


Druck: SOV St. Otto-Verlag GmbH, 
Laubanger 23, 8600 Bamberg 


Urheberrecht: Alle in diesem Sonderheft erschienenen Beiträge sind ur- 
heberrechtlich geschützt. Alle Rechte, auch Übersetzungen, vorbehalten. 
Reproduktionen gleich weicher Art, ob Fotokopie, Mikrofilm oder Erfassung 
in Datenverarbeitungsanlagen, nur mit schriftlicher Genehmigung des Verla- 
ges. Anfragen sind an Michael Scharfenberger zu richten. Für Schaltungen, 
Bauanleitungen und Programme, dieals Beispiele veröffentlichtwerden, kön- 
nen wir weder Gewähr noch irgendwelche Haftung übernehmen. Aus der 
Veröffentlichung kann nicht geschlossen werden, daß die beschriebenen 
Lösungen oder verwendeten Bezeichnungen frei von gewerblichen Schutz- 
rechten sind. Anfragen für Sonderdrucke sind an Alain Spadacini (185) zu 
richten. 


©1987 Markt& Technik Verlag Aktiengeselischaft, 
Redaktion »Happy-Computer«. 


Verantwortlich: 
Für redaktionellen Teil: Michae! Lang 
Für Anzeigen: Alicia Olees 


Redaktionsdirektor: Michael M. Pauly 
Vorstand: Carl-Franz von Quadt, Otmar Weber 


‚Anschrift für Verlag, Redaktion, Vertrieb, Anzeigen- 
verwaltung und alle Verantwortlichen: 

Markt& Technik Verlag Aktien 

‚Hans-Pinsel-Straße 2, 8013 Haar bei München, 
Telefon (089) 4613-0, Telex 5-22052 


Telefon-Durchwahl im Verlag: 
Wählen Sie direkt: Per Durchwahl erreichen Sie alle Abteilungen direkt, 
Sie wählen (039) 46 13 und dann die Nummer, die in Klammern hinter dem 
jeweiligen Namen angegeben ist. 


ISSN 0931-5829 


154 


PP3 


} Daß die 8-Bit-Ataris vierstimmigen Sound 
erzeugen können, ist ja bekannt. Aber was halten 
Sie von echtem Synthesizerhall, freier 
Ton- und Hüllkurvengestaltung, 
Schlagzeugsound und Transponierautomatik? 


Wenn Sie jetzt glänzende Augen bekommen, 
ist MASIC das Richtige für Sie. Eine strukturierte 
Programmiersprache speziell für Musik und Sound. 
Und, besonders wichtig: Das, was MASIC 
hervorbringt, läßt sich mühelos für eigene Programme 
nutzen. MASIC-Programme arbeiten im Interrupt, 
ohne z.B. ein gleichzeitig laufendes Basic- 

Programm zu stören. 


Zeigen Sie anderen Heimcomputer-Musikfreunden, 
was eine Harke ist - mit MASIC! 


„om 49, - 


Da haben Sie gerade ein herrliches Bild entdeckt, 

wie geschaffen als Titelgrafik für Ihr Basic-Programm. 
Oder Sie würden zu gern einmal mit einem 
Malprogramm ein wenig am Portrait dieser Dame auf 
der Illustrierten-Titelseite herummanipulieren. 


Sie haben einen 8-Bit-Atari und einen 

Epson-FX-80- kompatiblen Drucker? Dann halten 
Sie sich fest, denn scantronic zaubert ein 

‚Abbild Ihrer Papiervorlagen mit Hilfe Ihres Druckers 
in Graphics 9 auf den Bildschirm und/oder 

die Diskette. 


scantronic, unser Scanner, wird anschlußfertig 
geliefert, komplett mit Steuersoftware (Disk), 

einem fähigen Graphics-9-Malprogramm in Turbo-Basic 
XL, 16-Graustufen-Hardcopy und deutscher Anleitung. 


pm 99,- 


Endlich! Zwei neue deutsche 
Textadventures, 
die Sie begeistern werden! 


Alptraum 

‚Sie schlüpfen in die Rolle des Besitzers einer kleinen Flugli- 
nie. Sein nächtlicher Alptraum, in dem sich nach und nach 
die bedrohlichen Gefahren herauskristallisieren, ist Ihr 
Spiel. Je mehr Sie im Traum erfahren, desto besser. Je 


HCSA 


Software-Bestellschein 


Ich bestelle aus dem Diabolo-Versand folgende Software: 


zurückbleibende Ungewißheit sein. 


schneller der Traum zu Ende ist, desto quälender wird die Ara Tai Fu 


Der leise Tod 


Sie sind Ray Cooper, von Beruf Privatdetektiv, und besitzen 


ein kleines Büro in der Themsestadt London. Eines Tages 
erhalten Sie ein Telegramm von einem guten Freund im fer- 


nen Amerika. Ein heikler und gefährlicher Auftrag wartet auf 


Sie. Setzen Sie sich in Ihren Ferrari und brechen Sie auf- ob 


ie jemals nach London zurückkehren, können wir Ihnen 
nicht sagen. 


Beide Adventures laufen auf allen Ich wünsche folgende Bezahlung: 


Computern der Atari-XL- und 


XE-Serie ab 64 Kl RAM. 
om 39,- 


© Nachnahme (zuzüglich 5.7004 Versandkosten) 

OD) Vorauskasse (zuzüglich 3.- DM Versandkosten, 
20 100 DM Bestellwert versandkostentrei) 

[Bol Vorauskasse bite Scheck beilgen. 

‚Software ist vom Umtausch ausgeschlossen. 


Coupon ausschneiden, auf Postkarte kleben 
und einsenden an 

R+E Software, PF 1640, 7518 Bretten. 
Eine Abteilung des Vortags Fätz-Eberle GdbR. 


-T ATARI 


A a 


Der neue ATARI 800 XE mit Supergrafik ist 
jetzt da. Der Computer für alle, die erster 
Klasse fliegen wollen. 


Das sind die technischen Details des neuen 
Spitzenmodells der 64er Klasse: 
INNENRAUM: 64 kBytes Arbeitsspeicher 
im RAM 

COCKPIT: 24 kBytes. ROM-resident. 

Für Betriebssystem und Basic. 
ZENTRALTRIEBWERK: 6502 Prozessor der 
C-Version 


ZUSATZTRIEBWERKE: 

POKEY- für den Sound 

GTIA - für die Grafik 

ANTIC - für den Bildschirm 

PIA für die Ein-/Ausgabe 

SCHUB: 1,79 Megahertz 

ZULADUNG: Datasette, Floppy, Drucker, 
Monitor, Fernseher, Joystick, Lichtgriffel, 
Maltablett, Modulschacht. 

SPANNWEITE: Musik, Grafik, Spiele, Text- 
verarbeitung, Kalkulation, Lernhilfe, 
Archivierung, Verwaltung und, und, und... 


Ds sind viele tausend weitere Programme 
der erfolgreichen ATARI XE/XL-Serie. 

ATARI 800 XE mit Supergrafik. Das ist 
Computertechnologie für Menschen von 
heute zum sagenhaft niedrigen Preis. 

Den neuen ATARI 800 XE gibt es ab jetzt im 
Handel. 


IN ATARI 


- . wir machen Spitzentechnologie preiswert. 


